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1.  INTRODUCTION 


This  document  is  a  description  of  XWVG,  a  program  for  calculating  the 
signal  levels  of  electromagnetic  waves  propagating  in  a  tropospheric  ducting 
environment  over  seawater.  This  program  is  based  on  the  waveguide  formulation 
of  the  tropospheric  ducting  problem  given  by  Marcus  and  Stuart  [1,  2].  Like 
the  program  DUCT  developed  by  Marcus,  Stuart,  and  Ellis  [2,  3],  XWVG  uses  the 
root-finding  program  of  Shellman  and  Morfitt  [4]  to  find  the  complex  modes 
that  propagate  in  the  tropospheric  duct. 


XWVG  has  been  developed  for  the  purpose  of  providing  a  program  which 
guarantees  that  all  waveguide  modes  with  attenuation  rates  below  a  specified 
value  will  be  found.  XWVG  is  particularly  useful  for  conducting  case  studies 
over  a  large  dynamic  range  of  frequencies,  and  its  results  can  serve  as  a 
standard  against  which  results  of  quicker  but  more  approximate  methods  (5]  may 
be  measured. 

XWVG  assumes  that  the  modified  refractivity  profile  of  the  troposphere 
can  be  successfully  modeled  with  three  linear  segments.  For  many  naturally 
occurring  tropospheric  ducts  this  is  a  good  assumption.  The  program  DUCT  of 
Marcus,  Stuart,  and  Ellis  allows  the  modified  refractivity  profile  to  be 
modeled  with  up  to  five  linear  segments  and  hence  can  describe  a  wider  variety 
of  refractivity  profiles. 


El 


The  waveguide  modes  that  can  propagate  in  a  tropospheric  ducting 
environment  are  the  complex  zeros  of  a  transcendental  function.  In  the  Marcus 
and  Stuart  formulation  of  the  tropospheric  ducting  problem  this  modal  function 
is  expressed  as  a  determinant.  In  XWVG,  where  the  modified  refractivity 
profile  is  restricted  to  three  linear  segments,  the  modal  function  is 
evaluated  by  expanding  the  determinant  and  numerically  evaluating  the 
resulting  expression.  This  allows  the  derivative  of  the  modal  function,  which 
is  needed  by  the  Shellman  and  Morfitt  root-finding  program  and  for  the 
evaluation  of  the  modal  excitation  factors,  to  be  evaluated  easily.  In  DUCT, 
the  modal  function  is  evaluated  by  numerically  evaluating  the  determinant. 
Because  of  the  method  used  in  DUCT  to  evaluate  the  derivative  of  the  modal 
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function,  DUCT  is  restricted  to  refractivity  profiles  with  five  or  fewer 
linear  segments. 

XWVG  includes  an  approximate  allowance  for  surface  roughness  and 
atawspheric  absorption,  effects  which  are  not  included  in  DUCT.  XWVG  also 
includes  a  subroutine  that  evaluates  the  complex  index  of  refraction  of 
seawater  as  a  function  of  frequency,  temperature,  and  salinity. 

The  major  advantage  that  DUCT  and  XWVG  have  over  some  other 
impleiaentations  of  tropospheric  ducting  models  is  the  use  of  the  complex  root¬ 
finding  program  of  Shellman  and  Morfitt.  Use  of  this  routine  guarantees  that 
all  modes  with  an  attenuation  rate  below  a  prespecified  level  will  be  found. 
However,  this  advantage  does  not  come  without  a  price.  The  Shellman  and 
Morfitt  root-finding  routine  has  an  extremely  long  execution  time 
compared  with  other  less  infallible  methods  of  finding  modes  [6]. 
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2.  MATHEMATICAL  FORMULATION  OF  THE  MODEL 

MODIFIED  REFRACT IV ITY  PROFILE 

The  index  of  refraction  of  the  atmosphere  is  given  by 
n(?)  =  [£r(?)MrU)]%  , 

where  er  and  are  the  relative  permittivity  and  permeability  of  the 
atmosphere.  Throughout  this  document  the  assumption  is  made  that 

Mr(J)  =  1  ,  (2.2) 

and  the  only  variation  of  the  index  of  refraction  is  with  height  above  the 
surface  of  the  earth. 

When  modeling  tropospheric  propagation,  it  is  mathematically  convenient 
to  utilize  a  rectangular  coordinate  system  to  describe  atmospheric  wave 
propagation  over  a  curved  earth.  The  curvature  of  the  earth  may  be 
approximated  by  modifying  the  index  of  refraction  of  the  atmosphere  [7,  8]. 
This  modification  is  accomplished  by  adding  a  term  to  n(z),  where  z  is  the 
height  above  the  surface  of  a  flat  earth,  which  would  cause  a  ray  to  bend 
in  such  a  way  that  its  height  above  the  flat  earth  at  each  point  would  be  the 
same  as  if  it  were  a  straight  ray  over  a  curved  earth.  The  modified  index  of 
refraction  is  then  given  by 

m(z)  =  n(z)  +  §  ,  (2.3) 

<1 


(2.1) 


where  a  is  the  radius  of  the  earth. 

The  accuracy  of  the  flat-earth  approximation  depends  upon  the  frequency 
of  the  electromagnetic  wave  and  the  height  above  the  surface  of  the  earth  at 
which  the  signal  level  is  measured  (9,  10].  The  approximation  breaks  down  as 
the  frequency  and  height  above  the  earth's  surface  increase.  For  the  standard 
atmosphere,  Pekeris  [9]  finds  that  the  fractional  error  in  the  height-gain 
functions  is  approximately 
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=  1.911  x  10 


-10  [h(m)]5/2 


(2.5) 


From  this  it  can  be  seen  that  for  signals  with  wavelength  A  =  3  cm  (f  = 

10  GHz)  at  a  height  of  h  =  1000  m  the  fractional  error  in  the  height-gain 
function  is  approximately  20%. 

The  modified  index  of  refraction  of  the  atmosphere,  m(z),  is  very  nearly 

-3 

one,  the  difference  being  on  the  order  of  10  .  For  this  reason  it  is 

convenient  to  introduce  the  modified  ref ractivity,  M(z),  defined  by 


M(z)  =  [m(z)  -  1]  x  10C 


(2.6) 


Often,  the  modified  refractivity  can  be  approximated  by  three  linear 

segments,  as  shown  in  figure  1.  The  model  developed  in  this  document  assumes 

that  the  modified  refractivity  can  be  approximated  with  three  straight  line 

segments  and  that  this  one  profile  is  valid  for  all  range  values,  x.  An 

dM 

additional  assumption  made  is  that  the  slope,  of  the  modified  refractivity 
profile  is  positive  in  the  first  and  third  layers.  In  the  second  layer, 

f  “ »«  —  -  -*  -»• 

Let  M^(z)  denote  the  value  of  the  modified  refractivity  in  the  i-th 
layer.  The  modified  refractivity  profile  shown  in  figure  1  can  then  be 
written 


iy,)  =  Mucef)  ♦  ^(z 


z  r) 
ref 


(0  <  z  <  z2), 


(2.7) 


M2(z)  =  Mj(z2)  ♦  -£r(z  -  z2) 


(z2  <  z  <  z3), 


(2.8) 


GROUND 


Figure  1.  Trilinear  modified  refractivity  profile.  The  slope  of  M(z)  is  assumed  to  be  positive  in  the 
first  and  third  layers.  In  the  second  layer  the  slope  can  be  positive  or  negative. 

The  square  of  the  modified  index  of  refraction  is  then 

lij(z)  S  1  +  2  x  10*6  Mj(z)  +  in 

=  1  +  <*j(z  -  H)  +  iq  (0  <  z  <  z2),  (; 

m2(z)  S  1  +  2  x  10"6  M2(z)  +  in 

=  1  +  a\(z2  "  H)  +  a2^z  "  z2^  +  ir1  (*2  -  z  1  z3^»  C 

and 

m^z)  S  1  +  2  x  10'6  M3(z)  +  in 

S  1  +  Oj(z2  -  H)  +  a2^Z3  "  zt} 

+  a,(z  -  z«)  +  in  (z„  <  z)  .  (; 


dM. 

The  slopes  or  are  related  to  the  slopes  by 


,  dM. 

a.  =  2  x  io“°  -j-i  . 
1  dz 


(2.13) 


The  term  ir]  introduced  in  equations  (2.10-2.12)  allows  for  attenuation  of  the 
signal  due  to  absorption  by  atmospheric  gases.  The  height  H  is  chosen  so  that 
at  some  reference  height,  2re£i  in  the  first  layer,  M(zre^)  has  a  specified 
value.  H  is  related  to  and  M(zre^)  by 


2  x  10 
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H  =  z 


ref 


(2.14) 


The  complex  index  of  refraction  of  the  ground  is  assumed  to  be 
independent  of  position  and  given  by 


e 

g 


(2.15) 


where  eg  is  the  relative  permittivity  of  the  ground,  is  the  ground 
conductivity,  tQ  is  the  permittivity  of  free  space,  and  f  =  ^  is  the 
frequency. 

HORIZONTALLY  POLARIZED  HAVE  PROPAGATION 


Horizontally  polarized  waves  may  be  considered  as  due  to  a  radiating 
magnetic  dipole  p  oriented  in  the  z-direction  and  located  at  x  =  y  =  0, 
z  *  Zj.  In  a  laterally  homogeneous  medium  the  fields  due  to  such  a  dipole 
exhibit  axial  symmetry  and  may  be  obtained  from  the  magnetic  Hertz  potential 
vector  (11] 

ft(r,z)  »  fl(r,z)e  ,  (2.16) 

2 

mm 

where  e  is  the  unit  vector  i'  the  z-di  action  and  r  is  the  lateral  distance 
2 

from  the  source  location.  A  ..  de  adence  of  e  is  assumed.  The 

?4 
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electric  and  magnetic  fields  are  related  to  the  magnetic  Hertz  potential 
vector  by 


D  =  -iyecoV  x  ft 

=  -iepou>V  x  fi  (2.17) 

and 

H  =  V  x  V  x  fi  .  (2.18) 

The  Hertz  potential  may  be  expressed  as  [11] 

n(r,z)  =  ^  f  pdp  H^2)(rp)ff(p,z)  ,  (2.19) 

(2) 

where  H^  is  the  zeroth-order  Hankel  function  of  the  second  kind  and  the 

contour  C  is  shown  in  figure  2.  In  the  j-th  atmospheric  layer  (j  =  1,2,3)  the 
function  fi(p,z)  satisfies  the  differential  equation 


lm{p) 


Figure  2.  Contour  of  integration  C  for  evaluation  of  equa¬ 
tion  (2.19).  By  Cauchy’s  Theorem  the  contour  L  is  equivalent 
to  the  contour  C.  The  branch  cut  in  the  fourth  c  ladrant  is 

V2  2m  2  ^ 

n-  -  pA/k  introduced  into  n  because 

of  the  ground  boundary  condition. 


ptkp  J 


=  -p6(z  -  zT)  , 


where  k  is  the  free  space  wave  number  and  6(£)  is  the  Dirac  delta  function 
In  the  ground*  n(p,z)  satisfies  the  differential  equation 


z)  =  0  . 


Continuity  of  the  tangential  components  of  the  E  and  H  fields  yields  the 
continuity  conditions  [12] 

ffg(p,o)  =  ffjCp.o)  ,  (2. 

(p,»))  =  ajfn,(P.o)!  ,  (2. 


nj(P’Zj+l)  _  nj+l(p,Zj+l) 


(j  =  1,2)  , 


^j(p’Vi)3  = 


(j  =  1,2)  . 


The  boundary  conditions  that  fi(p,z)  must  satisfy  are:  as  z  -*■  -  ®,  II  (p,z) 

o 

must  represent  an  outgoing  exponentially  decaying  wave;  and  as  z  ■*  +  ®, 
F».{(p,z)  must  represent  an  outgoing  wave. 


The  solution  to  equation  (2.21)  is 


and 


■ 


With  time  dependence  e  ,  equation  (2.26)  represents  an  outgoing  wave  as 
z  •*  -  ».  If  the  branch  of  the  square  root  in  equation  (2.27)  is  chosen  so 


Im(Y)  <  0  , 


(2.29) 


then  as  z  |n^(p,z)|  decays  exponentially. 

The  complete  solution  of  equation  (2.20)  will  be  the  sum  of  the  general 
solution  of  the  homogeneous  equation  corresponding  to  (2.20)  and  a  particular 
solution  of  the  inhomogeneous  equation.  With  the  new  independent  variables 


(j  =  1,2,3)  , 


the  homogeneous  equation  corresponding  to  (2.20)  can  be  written  as 


(j  =  1,2,3) 


— 2  +  9.  fMp.q.)  =  0 

*5  J 


(2.30) 


(2.31) 


This  is  Stokes'  differential  equation  and  its  solution  can  be  written  as 


VP'V  =  VP)VV  *  Vp)8j(V 


(j  =  1,2,3)  , 


(2.32) 


where  f.(£)  and  g.(£)  are  any  two  linearly  independent  combinations  of  Airy 
J  J 

functions.  The  functions  f ^ (4)  and  gj(£)  need  not  be  the  same  combinations  of 
Airy  functions  in  each  atmospheric  layer.  For  numerical  purposes  it  is 
convenient  to  choose  [2] 


fjtf)  =  ^(4) 

f,(£)  =  M4)  -  e"4ni/3ho(0  , 


(j  =  1,2)  , 


(2.33) 


(2.34) 


gj(4)  =  k2U) 


g3(4)  =  h2(0  , 


(j  =  1,2)  , 


(2.35) 


(2.36) 


where  the  modified  Hankel  functions  [13],  hjd)  and  h2(£),  and  the  functions 
kj(z)  and  k2(z)  are  related  to  each  other  and  the  Airy  functions  through 


kj(z)  =  h^z) 


=  -2i(12)1/6Ai(-ze27Ii/3)  , 


k2(z)  =  h2(z)-e/*7I1^3h1(z) 

=  2(12)1/6eni/6Ai(-z)  , 


h2(z)  =  2i(12)1/6Ai(-ze"27Il/3) 


(2.37) 


(2.38) 


(2.39) 


Equation  (2.32)  represents  the  solution  Il(p,z)  for  every  atmospheric 
layer  except  the  one  the  transmitter  is  in.  That  is,  only  for  the  layer 
containing  z  =  is  equation  (2.20)  inhomogeneous.  Assuming  the  transmitter 
to  be  located  in  the  M-th  layer  (M  =  1,2,3),  two  particular  solutions  to 
(2.20)  are  [1,  2] 


ff^P)(p,qM) 


(M  =  1,2) 


(2.40) 


ffW  = 


RM[h1(qM<)-e'47ri/3h2(qM<)]h2(qM>)  (M  =  3) 


-RMkl(qM>)k2(qM<) 


_RM^hl^qM>^"e  ^  h2^qM>^h2^qM<^ 


(2.41) 


In  these  equations 


qM<  =  qM(min[z,zTJ)  , 


(2.42) 


qM>  =  %(®axl2»zxD  » 


(2.43) 


and 


In  equation  (2.44) 

‘Hi  “  3z  "ylaMl J  m 


(2.44) 


(2.45) 


and  W  is  the  Wronskian 


W  =  fj(?)gj(?)  -  fj«)gj(C)  • 

For  the  choice  of  solutions  (2.33-2.36), 

« ■  -  H)m 


(2.46) 

the  Wronskian  has  the  constant  value 

(2.47) 


in  all  atmospheric  layers. 


Combining  the  general  solution  (2.32)  of  the  homogeneous  equation  (2.31) 
with  either  one  of  the  particular  solutions  (2.40,  2.41)  of  the  inhomogeneous 
equation  (2.20)  yields 

=  Aj(p)k1(qj)  +  Bj(p)k2(q.)  +  P^P) (p , qM)6jM  (j  =  1,2)  (2.48) 

and 

n3(p,z)  =  A3(p){h1(q3)-e"47ti/3h2(q3)]  +  B3(p)h2(q3) 


fi<P)(p.qH)S3M 


(2.49) 


where  6.M  is  the  Kroneker  delta 

(j  =  M) 

(j  t  M)  . 

For  the  assumed  time  dependence,  eluJt, 
an  outgoing  wave  as  z  -*•  +  *  if 


(2.50) 

the  function  (2.49)  will  represent 


The  other  coefficients  A^  and  are  determined  from  the  continuity  conditions 
(2.22-2.25).  Thus,  the  coefficients  and  are  solutions  of  the  system  of 
equations 


iv  /l“il\2/3~rpi 

=  sf  VTT7  ni 

-  ' 

Ajkj (q.12 )  ^  ®lk2^q12^  ” A2kl^q22^  "  B2k2^q22^ 

—  “  flj  ^P»^l2^1M  +  P2  ^P,q22^2M  ’ 


(2.52) 


(2.53) 


/  Oj  \2/3  a2  /  V2/3  «2 

Alkl(q12)  +  Blk2(q12)  "  A2\a^  j  o^ki(q22)  '  B2\  f  c^k2(q22) 


(2.54) 


A2kl^q23^  ^  B2k2^q23^  "  B3k2^q33^ 

=  _n2  ^ ^P,q23^2M  +  ^3  ^P,q33^63M  ’ 


(2.55) 


/  a2  \2/3  a3 

A2kl(q23)  +  B2k2(q23)  "  B3  \  )  a2h2(q33) 


-  (W3 1  \ 


i 


k  {¥?n  • 


where 


ki(qn*  =  ■  GsHki(qn^ 


*2(qll^  =  k2(qllJ  "  ®SHk2*qll* 


■  i^)in 


The  notation  q^  means 

qjt =  V2*’ 


qjT  =  qj(zT)  ’ 


(2.56) 


(2.57) 


(2.58) 


(a i  >  0) 


(2.59) 


(2.60) 


(2.61) 


in  equations  (2.52-2.56)  the  prime  denotes  the  derivative  with  respect  to  the 
argument. 

The  derivatives  j  (pjq^)  j  *n  e(luat^ons  (2.52-2.56)  are  equal  to 

2/3 

(157)  Vjk;(-»jj)k2<v  0  ■  *•«  •  «•«) 

1 

2/  3  r  T 

dz{^3  ^P»*33*}s  (to7t)  “3R3Lhi(q33)_e  /  h2(q33)Jh2(q3T)  »  (2,63) 


{njP)(p,,j.j«)}=  (ispr) '  “jVi'W’j,. 


)  (j  =  1,2)  ,  (2.64) 


Tz{" 


{njP)<P',jj)}=  -(l^)2/3“jRjkl(’jT>k2<’jj> 


(j  =  1,2)  ,  (2.65) 


dz{^3  ^p,q33^}  ~(|a3|)  °3R3  [hl  ^q3T^"e  h2^q3T^Jh2^q33^  ’  (2.66) 


dz  {"j  *P*qj,j+lJ}  "(lajl)  °'jRjki(qj,j+l)k2(qj' 


,)  (j  =  1,2)  ,  (2.67) 


depending  upon  the  choice  of  particular  solution  (2.40,  2.41). 

In  matrix  notation,  equations  (2.52-2.56)  may  be  written  as 

&  *  e . 

where  the  coefficient  matrix  A  is  given  by 


A11 

CM 

< 

0 

0 

A21 

A22 

A23 

CM 

< 

A31 

A32 

A33 

A34 

0 

0 

A43 

A44 

0 

0 

A53 

A54 

and  the  vectors  £  and  jj  are  equal  to 

/A,  \ 


(2.68) 


(2.69) 


(2.70) 


14 


a 


and 


The  non-zero  elements  of  the  5><5  coefficient  matrix  A  are 


A11  =  *l*qll*  ’ 

(2.72) 

A12  =  *2(qll^  • 

(2.73) 

A21  =  kl(q12)  » 

(2.74) 

A22  =  k2(q12^  ’ 

(2.75) 

A23  =  ~kl^q22^  * 

(2.76) 

A24  =  “k2(q22)  » 

(2.77) 

A31  =  kl(q12)  » 

(2.78) 

A32  =  k2(q12)  ’ 

(2.79) 

*33  *  ' 

(2.80) 

2/3 

A34  =  ‘  (ifligl)  ofk2(q22)  ’ 

(2.81) 

A43  =  kl(q23)  ’ 

(2.82) 

A44  =  k2(q23)  ’ 

(2.83) 

A45  =  “h2^q33^  ’ 

(2.84) 

^3  =  kl^q23^  ’ 

(2.85) 

^4  =  k2(q23J  » 

(2.86) 

and 
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and 


^55  (lo?|)  ofh2(q33)  • 

(2.87) 

elements  of  the  vector  $  are 

P1  =  fflP)(P'<lll)6lM 

.lT(iM)2/3f-{H(P)(p,qn)|6iH, 

(2.88) 

P2  ~  (P*^12^1M  +  P2  ^P’q22^2M  ’ 

(2.89) 

+  «,  (^)  d2f2P)(P.l22)}S2H  * 

(2.90) 

"  n2  (P»923^62M  +  ^3  ^P,q23^63M  * 

(2.91) 

h  =  -l2  dd*K)(P'’23>}S2M 

*  r2  (Jial)2/35^3P,(P.%3j«3«  • 

(2.92) 

The  solution  for  the  unknown  coefficients  A.  and  B.  may  be  obtained  from 

j  j  J 

equation  (2.68)  by  using  Cramer's  rule  [14).  Thus 


A.  = 


"V 


j  I IA 


ft 


(2.93) 


and 


B  -  11 W1 

bj  "TTirh 


(2.94) 
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where  for  j  =  1,2,  the  matrix  x^.  is  obtained  by  replacing  the  column  of  A  in 
equation  (2.69)  containing  the  coefficients  of  with  the  vector  p;  and  for 
j  =  3,  =  0-  The  matrix  Ig^  is  obtained  by  replacing  the  column  of  A 

containing  the  coefficients  of  IL  with  the  vector  p.  The  notation  | |A| | 
indicates  the  determinant  of  the  matrix  A. 

Substituting  equations  (2.93,  2.94)  into  equations  (2.48,  2.49)  yields 

Rj(p,z)  =  nin{l,IAj,,ki(qj)  +  ||xBj|lk2(qj)} 

+  f^P)(p,qM)6jM  (j  =  1,2)  (2.95) 

and 

R3(P’2)  =  mrr{l,iB3l|h2(q3)}  +  RMP)(p’qM)63M  •  (2*96) 

From  equation  (2.19),  the  Hertz  magnetic  potential  fL(r,z)  can  be 
expressed  as  the  contour  integral 

n.(r,z)  =  J  pdpH<2)(pr)n  (p,z)  ,  (2.97) 

J  C  J 

where  the  contour  C  is  shown  in  figure  2.  By  closing  the  contour  C  and  using 
the  theory  of  residues,  equation  (2.97)  becomes 

n  (r,z)  =  -  X  b  (n)  +  ^  J  pdpH^2) (pr)n. (p,z) 

J  n  Cj 

+  ^  S  pdpH<2)(pr)ff.(p,z)  ,  (2.98) 

B 

where  the  b.(n)  are  the  residues  of  pH^2^ (pr)I1. (p,z)  at  the  poles  of  n.(p,z) 

J  ®  J  J 

in  the  fourth  quadrant;  the  contour  is  the  quarter-circle  of  infinite 

radius  lying  in  the  fourth  quadrant;  and  the  contour  B  encloses  the  branch  cut 

which  is  present  as  a  result  of  the  square  root  in  the  expression  for  y  in 

equation  (2.27).  Through  use  of  the  asymptotic  approximations  for  the  Hankel 

and  Airy  functions  it  can  be  shown  that 

J  pdpH<2)(pr)ff.(p,z)  =  0  .  (2.99) 

C1 


] 

! 
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The  integral  over  the  contour  B  represents  the  surface  wave  contribution  to 
the  total  field  and  is  assumed  to  be  small  relative  to  the  other  field 
contributions.  Therefore, 


n  (r,z)  £  -  |  I  b  (n)  . 

3  n  3 

The  residues  b^(n)  are  given  by  [2] 


b.(n)  =  p  H^(p  r) 
j  Kn  o  Kn 


and 


{"vvv  ♦  "wvL, 
_ _ _ P 

{Ip  »*"U. 


(j  =  1,2) 


|l  UB3I  1  h2  ■'{p-p 

b3(„)  =  PnH-'(Pnr)  -  ja  V  ~~  . 

\§p  "sii;p=p„ 


.(2). 


where  pQ  is  the  n-th  value  of  p  for  which  I |A| |  =0. 


Substituting  equations  (2.101,  2.102)  into  (2.100)  yields 
flj (r,z)  =  -  |  I  AnE(n,z,zT)VfT  H^2)(pnr)  , 


where 


A.  = 


“  {ip  ll~ll}p=pn 


/  lr 

\2/3fa  1 

> 

2^(rtt 

>  K:1*" 

|qir‘,n(pn) 

(2.100) 


(2.101) 


(2.102) 


(2.103) 


(2.104) 


is  the  modal  excitation  factor  and 


(l|tAJl|‘i«lJ)  ♦  llIBjHk2(«J,>M>  0  =  >'2> 


E(n,z,zT)  = 


(2.105) 


{I UB3I |h2(q3)}p_p 


(j  =  3) 


is  the  modal  height-gain  function. 


For  the  cases  of  interest  lpnr|>>l,  so  that  the  asymptotic  approximation 


Ho2)<V  -  (s gr^eM-iP.r  ♦  i?) 

can  be  used  in  equation  (2.103).  This  yields 

FI.(r,z)  =  -  ---  e*n^  2  \  E(n,z,z_)e  *^nr  . 
J  V2nr  n  n 


(2.106) 


(2.107) 


Rather  than  evaluate  the  fields  by  using  equation  (2.107)  together  with 
equations  (2.17,  2.18),  it  is  more  convenient  to  evaluate  the  magnitude  of  the 
electric  field  relative  to  its  free  space  value.  This  is  given  by  [2] 


.  JIL  .  2^  u  X  )e'lVl  . 

IV  I  P  n  n  1 


(2.108) 


where  p  is  the  magnetic  dipole  strength.  This  expression  takes  into  account 
the  phase  of  each  term  in  the  sum  and  is  known  as  the  coherent  mode  sum.  It 
is  also  useful  to  define  the  relative  field  strength  that  results  when  the 
phase  of  each  term  in  (2.107)  is  ignored.  This  is  the  incoherent  mode  sum  [2l 


Aincoh  = 


(2.109) 


Because  E(n,z,z^,)  is  proportional  to  ^ ,  through  the  coefficients  A. 

"  -1 

and  B j ,  the  factor  of  p  in  E(n,z,z,p)  will  cancel  the  factor  of  p  in  the 
expressions  (2.108,  2.109)  for  A^^  and 
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VERTICALLY  polarized  wave  propagation 


Vertically  polarized  waves  may  be  considered  to  be  due  to  a  radiating 
electric  dipole  pg  oriented  in  the  z-direction  and  located  at  x  =  y  =  0, 
z  *  z^.  A  time  dependence  of  e+^40t  again  will  be  assumed.  The  medium  again 
is  assumed  to  be  laterally  homogeneous  so  that  the  fields  due  to  the  dipole 
exhibit  axial  symmetry.  Because  of  the  variation  of  the  permittivity  e  with 
height  above  the  surface  of  the  earth,  the  equations 

H(r,z)  =  ieuiV  x  fi*(r,z)  (2.110) 

and 

E(r,z)  =  V  x  V  x  n*(r,z)  ,  (2.111) 

relating  the  electric  and  magnetic  fields  to  the  electric  Hertz  potential 
vector 

fi*(r,z)  =  n*(r ,z)e  ,  (2.112) 

z 

are  only  approximately  consistent  with  Maxwell's  equations.  However,  because 
the  variation  of  with  height  z  in  the  atmosphere  is  so  small,  equations 
(2.110,  2.111)  constitute  a  good  approximation  [11]. 


The  calculation  of  the  electric  Hertz  potential  IT*(r,z)  proceeds  exactly 
as  the  calculation  of  the  magnetic  Hertz  potential  n(r,z),  with  some  minor 
modifications.  The  magnetic  dipole  strength  p  in  the  differential  equation 
(2.20)  should  be  replaced  by 


o*  =  — 


(2.113) 


This  yields  the  differential  equation 


Id2  .2  r  2 ^  x 

!S?  k  "Jt2> '  S* 


jmcp. 


z)=  -p*6(z  - 


(2.114) 
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Ll  i  <  i  l. : . 


The  continuity  conditions  (2.22-2.25)  become 


ngff*(p»°)  =  nj(o)ff*(p,o)  ,  (2.115) 

^{n*(p,o)}  =  ^{fi*(p,o)}  ,  (2.116) 


fij(P,2j+l)  =  nt+1(p,zj+1)  (j  =  1,2)  ,  (2.117) 

and 

|sin*(p,xJ+l>|  =  ^(fe(p.zj+l))  (j  =  1.2)  .  (2.118) 


p) 

The  particular  solutions  rC  ',(p,z)  of  (2.114)  are  the  same  as  the  particular 
~(P)  n 

solutions  Fl^  (p,z)  given  by  equations  (2.40,  2.41)  except  that  R  is  replaced  by 


(2.119) 


The  system  of  equations  (2.68)  becomes 

A*£*  =  jj*  .  (2.120) 

The  elements  of  the  coefficient  matrix  A*  are  identical  to  the  elements  of  A 
in  equations  (2.72-2.87)  except  that  k^(q^)  and  (q^ ^ ) ,  as  given  by  equations 
(2.57,  2.58),  are  now  equal  to 


ftj(*ll)  =  ki(^n)  "  Gsvkl(qllJ  (2.121) 

and 

^2^qlP  *  k2^qll^  *  GSVk2^qll^  ’  (2.122) 

where 


0  =  ix(i”ii\2/3  "i<21 

SV  a.  V  k  /  1?  • 

1  '  '  E 


(2.123) 


This  change  is  due  to  the  continuity  condition  (2.115).  When  considering  the 

field  strength  relative  to  its  free  space  value,  the  dipole  strength  p* 

cancels  out  in  the  final  results  for  A*  ,  and  A*  .  ,  just  as  p  does  in  A  . 

coh  rncoh’  J  r  coh 

and  Therefore,  the  only  significant  change  for  vertical  polarization 


is  the  replacement  of  Gg^  by  Ggy  in  the  expressions  for  k^(q^)  and 
due  to  the  changed  continuity  condition  (2.115). 

TRILINEAR  DUCT  MODAL  FUNCTION 

When  evaluating  the  field  strength  relative  to  its  free  space  value, 
equations  (2.108,  2.109),  the  values  p  =  for  which  | | A | |  =0  are  needed.  The 
determinant  | |A| |  is  known  as  the  modal  function.  The  values  p  =  for  which 
I | A | |  =0  are  the  eigenvalues  of  the  problem,  each  eigenvalue  representing  a 
different  electromagnetic  mode  that  propagates  in  the  atmospheric  waveguide 
formed  by  the  trilinear  refractivity  profile.  In  XWVG  the  zeros  of  | |A| |  are 
found  by  using  the  complex  root-finding  routine  of  Shellman  and  Morfitt,  which 
will  be  discussed  in  a  later  section  of  this  report.  First,  explicit  formulas 
will  be  given  for  the  modal  function,  its  derivative,  and  the  modal 
height-gain  functions  for  the  case  of  a  trilinear  refractivity  profile. 


The  determinant  of  the  coefficient  matrix  A,  equation  (2.69),  can  be 
expanded  to  obtain 

MAM  =  ;('|~)1/3|;  (Jiti)1/3  £(qn)x(qn)  +  *(q11)*(q1i)j  >  (2.124) 

where  both  and  are  positive  and  the  top  sign  is  to  be  taken  if  >  0 
and  the  bottom  sign  if  <*2^  The  auxiliary  functions  £(9^)*  x(qj^)> 
‘Kqjj).  and  <Kqn)  are  given  by 

t(qn)  =  k2(<*l2)Kl(qll'>  '  ki(qi2)R2(qll)  *  (2.125) 


X(qn)  =  h2(q33)(ki(q22)k2^q23)  "  k2(q22)kl ^q23^ 

*  )  h2^q33^kl^q22^k2^q23^  "  k2^q22^ki^q23^  ’ 

^(qjj)  =  k2^ql2^1^qll^  "  ki^q12^2^qll^  • 


(2.126) 


(2.127) 


^(qll^  =  h2^q33^kl^q22^k2^q23^  ’  k2^q22^kl^q23^ 


h2 (q33)  I kl  (q22')k2 ^q23^  "  k2(q22^kl  ^q23^  ' 


(2.128) 


The  arguments  q^j  appearing  in  equations  (2.125-2.128)  are  equal  to 


«11  *  (st)  [1  *  -  ",H  -  s2]  • 

^  *  (4T  •*« 


q12  =  qll  + 


y2/3 

axz2 

2/3  /  ,  \  2/3 


/  \ 2/3  /  .  v ^/o 

=  qll  +  (kir)  l“lZ2  +  a2(z3  “  z2}1  ’ 


2/3 


*23 


and 


/«  \2/3  /k  \2/3 

q33  =  (S)  qll+(y  l“lZ2  +  « 


2(z3  '  Z2)]  * 


with 


P2  =  el 


The  functions  kj(<ljj)  and  ^2^qlP  are  8*ven  ^ 

MqlP  =  kl(qll)  ”  GSkl (qll ^ 


and 


k2^qlP  ~  k2^qll^  "  GSk2^qlP  ’ 


where 


S  *  S,  -  £ 


for  horizontal  polarization  and 
r  _  r  _  n?(0)f 

Gs  •  Gsv  -  ■>~gsh 

g 


(2.129) 

(2.130) 

(2.131) 

(2.132) 

(2.133) 

(2.134) 

(2.135) 

(2.136) 

(2.137) 

(2.138) 


for  vertical  polarization. 


The  derivative  of  the  modal  function  | |A| |  with  respect  to  q,,  is  needed 
by  the  Shellman  and  Morfitt  root-finding  routine.  The  derivative  is  also 
needed  for  the  evaluation  of  the  modal  excitation  factors  A  .  Taking  the 
derivative  of  equation  (2.124)  and  making  use  of  Stokes'  differential  equation 
to  eliminate  the  second  derivatives  that  occur  yields 


=  ;  (|St)  P  (l^)  [f  <«!!>*<«!!>  +  ^ll^lP] 


+  (»)>' (qn)4»(qn)  +  4>(qn)0’ (qn)]> . 


(2.139) 


where  again  the  upper  sign  is  to  be  taken  when  a2  >  0  and  the  lower  sign  when 
(*2  <  0.  The  derivatives  with  respect  to  q^  of  the  auxiliary  functions  are 


£*(qll)  =  k2(q12)ftl(qll)  "  kl(q12)I‘2(qll)  +  kl(ql2)< 

3G„ 


9Gr 


q  + 


11  3qX] 


k2 (ql  1 ) 


+  Ggk^(qn)  >-  k2(q12) 


qll  +  3q 


lU 


kj(qll)  +  Gski(qllV  ’  (2.140) 


VO0 


/a  \2/3 

x'(qn)  =  -  h2(q33)  [k^(q22)k2(q23)  -  k^(q22)k1  (q23)  ] 


/  a,  \2/3 

+  h2^q33^  ^q22  ^k2  ^q22^kl  ^q23^~kl  ^q22^k2  ^q23^ 


+  [k*  (q22)k^(q23)  -  k2(q22)k  j  (q23)  J } 


i\l/3/fl  \2/3 

\a3  )  (03)  h2(q33)  ^kl  <-q22')k2  (q23)  "  k2(q22)kl  (q23)  J 

(^flf^)  (lair)  h2(q33^q22^k2(q22)kl  (q23) 


-  k1(q22^k2^q23^  +  923(k2(q22)k1(q23)  *  ki (^22^2^23^^  *  (2-i^D 
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'  *qlP  =  "  q12k2^q12^1(qll)  "  k2(q12))  qll  + 


+  q12kl^q12^2(qll)  +  kl*q12*l  qll  + 


ki(qn)  +  Gski 


(qn) 


k2(qll>  +  GSk2(qllV  *  (2 .  142) 


/«  \l/i 

♦  '(qll)  =  ”^33(0^)  h2(q33^kl(q22^k2^q23)  “  k2^q22)kl (q23^ 

2/3 

+  (t^t)  h2^q33^^ki^q22^k2^q23')  "  k2^q22^kl ^q23^ 

+  lkl*q22*k2*q23*  ‘  k2(q22)kl(q23) ^  ^ 

1/3  2/3 

+  (*03*)  (at)  h2(q33^kl(q22)k2(q23)  “  k2(q22)kl(q23^ 

/.  I \ 1/3  2/3 

+  \^t)  (Tm)  h2(q33)Ukl(q22)k2(q23)  '  k2(q22)ki(q23}1 


q23 ^ kl (q22 ^ k2 ^q23^  "  k2^q22^kl^q23^ ^ 


(2.143) 


For  horizontal  polarization 

3Gs  3Gsh  1  r 

3qn  '  3’u  " 2  ‘k  '  L° 


.  b21  ->/2 


(2.144) 


while  for  vertical  polarization 
_  ^SV  _  nJlOl  ^SH 

8qn "  3qn "  T~  3qn  ’ 


(2.145) 


TRILINEAR  DUCT  MODAL  HEIGHT-GAIN  FUNCTIONS 


The  height-gain  function  corresponding  to  the  n-th  mode  is 


n 
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(j  =  1,2) 


E(n,z,zT)  = 


flllAjUVy  +  lllBi"k2(<>j»p=p 

} 

Jl  lXB3 1  lh2^q3^p=p 


(2.146) 


(j  =  3)  . 


When  j  *  1,2,  the  matrix  T  is  the  matrix  obtained  by  replacing  the  column  of  the 

~Aj 


the  matrix  A,  equation  (2.69),  containing  the  coefficients  of  by  the  vector 


8;  and  when  j  -  3,  | |t  | 


0.  The  matrix  T  .  is  obtained  by  replacing  the 


column  of  A  containing  the  coefficients  of  by  the  vector  p.  For  example, 


tB2  is  given  by 


~B2 


‘ll 

A12 

0 

h 

‘21 

A22 

A23 

h 

‘31 

A32 

A33 

h 

0 

A43 

1 

0 

A53 

h 

(2.147) 


The  elements  of  the  matrix  A  are  given  by  equations  (2.72-2.87)  and  the  elements 
of  the  vector  p  are  given  by  equations  (2.88-2.92). 


The  elements  of  the  vector  P  depend  upon  the  choice  of  particular 
solution.  Theoretically,  either  of  the  particular  solutions 


M> 


or 


r^P)(p,qM)  = 


,RM[hl(qM<)‘e  /  hl(qM<)]h2(ql 
"RMkl (qM> ) k2 (qM< ) 

■RIl[hl(qM>)‘e  ^  hl(qM>)]h2(ql 


(M  =  1,2) 


(2.148) 


)  (M  =  3) 


(M  =  1,2) 


(2.149) 


M< 


)  (M  =  3) 


a 


can  be  used.  Numerically,  however,  one  solution  may  be  preferable  to  the 
other.  Numerical  experience  shows  that  for  the  trilinear  refractivity 
profiles  shown  in  figure  1,  when  the  transmitter  and  receiver  are  both  in  the 

dM2 

first  layer  or  the  transmitter  is  in  the  second  layer  and  is  negative,  the 

best  choice  for  the  particular  solution  is  (2.149).  When  the  transmitter  is 
in  the  first  layer  and  the  receiver  is  in  the  second  or  third  layer,  when 

dM2 

the  transmitter  is  in  the  second  layer  and  is  positive,  or  when  the 

transmitter  is  in  the  third  layer,  the  best  choice  for  the  particular  solution 
is  (2.148). 

When  the  transmitter  is  in  the  first  layer  and  the  receiver  is  in  the 
first  layer,  the  modal  height-gain  function  is  given  by 


E(n,zR,zT)  Ri|[|+  (jofr)  h2(q33>k2(q23) 

+  h2(q33)k2(q23)^  |+  (^orf^)  kl(q22)k2(q12)  +  kl(q22)k2(q12)J 

+  |+  (l«2 l)  h2(q33)kl(q23)  +  h2(q33)kl (q23)}  {*  ('aj')  k2(q22)k2(q12) 

k2(q22)k2(q12)|]  *2*qll^kl*qlT*kl*qlR*  +  [{+  (laflj  *2^33^2^23* 

+  h2^q33^k2^q23^|  (  Oi')  ki^q22^kl^q12^  "  kl^q22^kl ^ql2^| 

+  |+  (Tati)  h2(q33^kl(q23J  +  h2 (q33'>kl (q23)}  {+  ('a^)  k2(q22)kl (q12) 

^  ^2^22^1  ^2^11^  ^2^1T^1  ^  ^ 
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*  [\*  VTSlr)  h2(q33)k2(q23)  +  h2(q33)k2(q23)|  |+  Vt? )  ki^22)kl(q12) 

♦  k1(q22)k^(q12)| 


{?(lSr) 


b^(q33)ki(q23)  ♦  h2(q33)kJ(q23)|  ji  (*a**)  k2<q22)kl(q12) 


"  ^2^22^ 


j(qi2)| 


)k2(qlT)k2(qlR) 


(°  <  zR  <  z2  ;  °  £  zT  <  z2) 


(2.150) 


When  the  transmitter  is  in  the  first  layer  and  the  receiver  is  in  the  second 
layer,  the  modal  height-gain  function  is  given  by 

EU.Zjj.Zj)  =  Rjwj|+  ( | «2 J )  h2^q33^k2^q23^  +  h2^q33^k2^q23^  k2(qll^kl ^qlT)kl (q 

F-  ,  vl/3  ] 

"  [+  \l®2 1 )  **2^33**2^23*  +  h2(q33)k2(q23)  kl(qll*k2(-qlT)kl(-q2R) 


'  [+  (t^t) 

+  [+  (tSt) 


h2(q33)ki(q23)  +  h2(q33)k 


j(q23)  ft2(qll)kl 

j(q23)  fti(qn)k2 


(qlT)k2(q2R) 


h2^q33*kl^q23*  +  h2^33^ki^23^  kl^qll^k2^qlT^k2^q2R^ 


(z2  <  zR  <  z3  ;  0  <  zT  <  z2)  .  (2.151) 

When  the  transmitter  is  in  the  first  layer  and  the  receiver  is  in  the  third 
layer,  the  modal  height-gain  function  is 

E(n,zR,zT)  =  -R1W2[fc1(qn)k2(q1T)  -  k2(qll)kl  (qlT)^k2(q3R) 


(z„  <  zn  ;  0  <  z„  <  zj  . 


(2.152) 


In  the  above  equations 


R1  =  Wq*  * 


(2.153) 


where  p  is  the  magnetic  dipole  strength,  W  is  the  Wronskian  of  kj(£)  and  k£(£) 
and  has  the  value 


« ■  -  ^tf  • 


(2.154) 


and  qj^  is  equal  to 


9ql  /k  \2/3 

«i  ■  -  {h)  “*  ' 


(2.155) 


When  the  transmitter  is  in  the  second  layer  and  the  receiver  is  in  the 
first  layer,  the  modal  height-gain  function  is  given  by 


E(n>ZR,zT)  =  ±  j[*  (|St)  h2(q33)k2(q: 

1 J  *2*qll*kl*q2T^kl(qlR* 


) 


+  h2^q33^k2^q23^ 


[‘(a) 


?  (4*r) 


1/3 


h2*q33*kl*q23*  *  h2(q33)k 


l(q23) 


k2^qll^k2^q2T^kl^qlR^ 


1/3 


Vatr)  h2^q33^k2^q23^  +  h2^q33^k2^q23^ 


kl(qll)kl 

■ 


(q2T)k2^qiR^ 


hl/3 

iftl)  hi('i33)k1(923)  *  h2t,*33)klCq23>J  *1  (’l  1  )k2(<12T)k2(qlR) 


(0  <  zR  <  z2  ;  z2  <  zT  <  z3)  .  (2.156) 
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; 

t 


When  the  transmitter  is  in  the  second  layer  and  the  receiver  is  in  the  second 
layer,  the  modal  height-gain  function  is 


(m)  h2^q33^k2^q23^  +  h2^q33^k2^q23^||  ‘(^"4 

+  k2^q22^k2^q12^ j  kl^qll^ 

^  (  a  i  )  k2^q22^kl^q12^  "  k2^q22^kl^q12^ 

{’(Tati)  h2(q33)k2(q 

2(q12'j  kl 


1/3 


k2^q22^k2^ql2^ 


23)  +  h2^q33^k2^q23^ 


'’n*} 

}{[<<?A 


k1(q2T)k1(q2R) 


(q22)k2^ql2^ 


kl<q22)k2 


R2(qll) 


111 


^2^2T^1  ^2R^ 


kl(q22)kl(q12)  +  kl(q22)klCql 

kl(q2T)k2(q2R)| 

|"(|a2l  )  h2(q33)kl(q23)  +  h2*q33*kl*q23*  j  j  "  (^o^)  kl (q22)k2(q12^ 

l(q22)k2(q12)]  kl(qll) 


k1(q22)kl^q12) 

90 
to 
/* s 
£> 

_ 1 

k2(q2T)k2(q2R)  / 

1  '  j 

Cz2  1  ZR  1  z3  5  z2  1  ZT  1  z3  »  a2  >  °)  (2.157) 
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.• -.rvi  •  *  ■ 


E(n,zR,zT)  = 


R2  |  |(lajr)  **2^33^2^23*  +  ^^33^^23^  |  | 


k2^q22^k2^q12^ 


+  k2(q22)k2(<*12)  M911*  +  "  (^af^)  k2(q22)kl(q12) 

"  k2(<l22)kl(<ll2)  k2^qll^|  k1^2T^k1^2R^ 


fajl)  h2(q33)kl(q23)  +  h2(q33)kl  (q23)  |  |  '  (^a^) 


k2^q22^k2^q12^ 


-  k2(q22)k2(q12)  ^(q^  +  ("i^)  k2(q22)ki(qi2) 

k2 (q22)kj  (qj2)  k2^qll^|  |k2^q2T^kl  ^q2R^  ^  k j  (q2f) k2 ^q2R^ ^ 

+  {(Tatr)  h2(q33)kl(q23}  +  h2(q33)kl(q23)||  (^a^)  ki  (q22)k2(q12^ 

+  k1(q22)k2(q12)  j  fcjCqjj)  +  ki(522)ki(qi2) 


*  ^1^22^1^12^  |  I  ^2^2T^2^2R^ 


( z 2  <  zR  <  z^  ;  z2  <  Zj  <  z3  ;  a ^  <  0) 


(2.158) 


When  the  transmitter  is  in  the  second  layer  and  the  receiver  is  in  the  third 
layer,  the  modal  height-gain  function  is 


E(n’V*T)  =  R2W  |  Y  i1^)  '  k2(q22)k2(q12}  +  k2(q22)k2(q12)|Kl(qll) 

"|+  (^3i^)  k2^q22)kl(q12)  +  k2(q22)kl(q12)|  k2(qlP  kl (q2T)h2(q3R) 

+  f'i+  (^crf^)  kl(q22)k2(q12)  +  kl(q22)k2(q12)iKl(qll) 


12*1*1 


{  *  (J5fi)  '  ki(')22)kl(’l2)  *  kl(q22)ki(<i12)Jt2<<‘ 


lx)  k2^q2T^h2^q3R^ 


( Z„  <  2,  :  <  2„  <  Z„ ) 

v  3  —  R  ’  2  —  T  —  3 


In  the  above  equations 


D  = 

nO  U«I  > 


2  Wq 


(2.159) 


(2.160) 


where 


,  9q2  /k  v2/3 

q2  ■  dz  -  (|0f2|)  “2 


(2.161) 


When  the  transmitter  is  in  the  third  layer  and  the  receiver  is  in  the 
first  layer,  the  modal  height-gain  function  is  given  by 

E(n,zR,zT)  =  -  R1W2{ft1(qn)k2(q1R)  -  fc2(qll)kl  (q1R) }h2(q3T) 


(0  <  ZR  <  22  ;  z3  <  zT) 


(2.162) 


When  the  transmitter  is  in  the  third  layer  and  the  receiver  is  in  the  second 
layer,  the  modal  height-gain  function  is 


k  2^q22^2^q12^ 


E<“'V2T>  =  ±  V(t^)1/3  [{*  (J^i)1/3k  2<*k22>k2^12> 

+  k2(q22)k2(q12)  j^l^ll5 

"l*  (^0^)  k' 2^q22)kl <‘q12^  +  k2(q22)kl(q12^  |  k2^qlP 

+  '  k'l(q22)k2(q12)  +  kiCq22)k2(q12)  |  Rl(ql] 


k2^q3T^kl (q2R) 


|+  (^j^)  ^i(q22^kl(q12^  +  kl^q22^ki(q12^  |  K2(q] 


11^  h2^q3T^k2^q2R^ 


(z2  1  ZR  1  z3  '»  z3  5  zj)  •  (2.163) 

When  the  transmitter  is  in  the  third  layer  and  the  receiver  is  in  the  third 
layer,  the  modal  height-gain  function  is  given  by 


-e‘4"i/3h. 


E(n,zR,zT)  =  ^ kl ^q22^k2*q12*  +  kl ^q22^k2^q12^]  [~k2^q23^  jhl^q33^ 

-e  ^  h2(q33)|±  (|^t)  k2(q23}  |  hl(q33)“e  h2 (q33^^  1  ^1  (ql  1  ^ 

+  L+  k2(q22^k2(q12^  +  k2(q22^k2^q12^]  [kl (<W  {  hl ^q33^“e  /  h2(q33) } 

+  {m)  kl(q23}  /3fa2(q33)  }]kl(qll) 

+  [+  (^)  kl(q22^kl^q12)  +  kl^q22^kl^q12)]  [k2(<W  {  hl(q33)_e  ^  h2^q33*} 

+  (t«2T)  k2(q23^  {hi^q33^'e  h2(q33)  }"J ^2(qll) 

+  [+(JafL)  k2*q22*kl*q12^  +  k2(q22)kl(q12)]  [_kl (<W  i  hl (q33)_e  h2(q33)} 

1  (la^r)  kl(q23^  {  hl^q33^'e  ^  h2*q33^}]*2*qlP  j  h2^q3T)h2^q3R^ 


(z3 1 ZR  ;  z3  1  V  • 


(2.164) 
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In  the  above  equations 


R 


3 


=  -E_ 
W*3 


* 


where 


(2.165) 


(2.166) 


In  all  of  the 
sign  is  to  be 


above  equations  for  the  modal  height-gain  function,  the  upper 
taken  when  a2  >  0  and  the  lower  sign  when  or2  <  0. 
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3.  SURFACE  ROUGHNESS 


The  preceding  results  have  assumed  that  the  earth's  surface  is  perfectly 
smooth.  Because  surface  roughness  could  have  a  significant  effect  upon  the 
signal  levels  at  large  ranges,  especially  for  frequencies  above  several 
gigahertz,  the  modifications  necessary  to  incorporate  surface  roughness  into 
the  previous  results  will  now  be  made. 

One  way  to  introduce  surface  roughness,  or  any  loss  mechanism  that  can  be 

modeled  as  a  lossy  boundary,  is  the  following  [16].  Instead  of  the  trilinear 

layer  shown  in  figure  1,  consider  the  layer  shown  in  figure  3,  where  the 

infinitesimally  thin  bottom  layer,  z  ,  =  0  <  z  <  z  ,  has  a  constant  modified 

l  P 

ref ractivity .  In  the  limit  z^  ■+  z^  =  0  this  profile  is  exactly  the  same  as 
the  one  considered  before.  In  the  bottom  layer  0  <  z  <  z^»  the  function  1f(p,z) 
can  be  written  as 


GROUND 

Figure  3.  Modified  refractivity  profile  used  to  introduce  surface  roughness  loss  into 

dM 

calculation  of  field  strength.  In  layer  0,  —  =  0.  The  height  zD  is  infinitesimally 

dz  y 

small,  and  eventually  z_  -►  0. 


fi  (P,Z)  =  A  (p){eiMZ  +  Re‘iM2}  , 


where 


M  =  W  n] 


(3.1) 


(3.2) 


(3.3) 


For  a  time  dependence  of  e  and  with 


(3.4) 


the  first  term  in  (3.1)  represents  a  down-going  plane  wave  and  the  second  term 
represents  an  up-going  plane  wave.  The  effect  of  surface  roughness  is 
introduced  through  the  plane  wave  reflection  coefficient  R  in  equation  (3.1). 
With  the  introduction  of  (3.1),  the  function  II(p,z)  is  no  longer  required  to 
satisfy  the  boundary  condition  that  n(p,z)  represent  an  outgoing  decaying  wave 
as  z  ■*  -  «.  In  the  other  layers  the  solution  Il(p,z)  is  exactly  as  before: 

(p)k1(<1j )  +  Bj(P)k2(qj)  +  fijP)(P,qj)SjM  (j  =  1,2) 


ryp.z)  = 


(3.5) 


B3 (p)h2 (q3 )  +  ^3P)(P>q3^63M 


(j  =  3)  , 


where  the  particular  solutions  n:  '  are  given  by  equations  (2.40,  2.41) 


The  continuity  conditions  that  n(p,z)  now  has  to  satisfy  are 


n0(p’V =  fyp’V  ’ 

dz^o(P’Zp)}  =  dz^l^P,zp^  ’ 


•yp’VP  =  nj+iCp,2J+i) 


(j  =  1,2)  , 


(3.6) 


(3.7) 


(3.8) 


d2{nj(p,Zj+l)}  -  dz^nj+!(p,zj+l^ 


(j  =  1,2)  , 


(3.9) 


for  both  vertical  and  horizontal  polarization.  Substituting  equations  (3.1) 
and  (3.5)  into  equations  (3.6,  3.7)  yields 

(  ipz  -iyz  1 

M'  P  +  Re  pr  Aiki(V  *  Bik2(V  " Cp’V6m  (3  io) 


iMA<. 


,{•  P-Re  P  ”>  fe)  Aiki(qip>  +  “>  (to7t)  bi4(V 

*  5jfnSP)(P.<iip)}61M  .  (3.11) 


where 


qi^zP^ 


*  fe)  11  +  in  +  “i(2P  - H)  - p2] 


(3.12) 


In  the  limit  z^  -*  0,  equations  (3.10,  3.11)  become 

Ao(l  +  R)  =  Ajk^qjj)  +  Bjk^qjj)  +  ff{P)  (p,qn)6, 


(3.13) 


iMAoO 


2/3  2/3 

«  *  “‘(toTt)  Aiki<qn>  +  “■  (t57t)  Bik2(qi!) 


^{R‘P)(p,qu)}6] 


(3.14) 


Eliminating  Aq  from  equations  (3.13,  3.14)  finally  yields 

Al|ki<q.l>  -  g  (Jfii)2/3(M)  kl<qll>  }*  Bl{ki(qll>  -  *  (^)2/3(^)k2<q.,)| 


1_ 

®1 


{bsp,<p.-.u)}  z  (^rm 


1M 


(3.15) 


The  continuity  conditions  (3.8,  3.9)  yield  equations  (2.53-2.56)  as  before.  In 
comparison  of  equations  (2.52)  and  (3.15)  it  can  be  seen  that  the  net  effect  of 
the  modification  to  include  surface  roughness  is  the  replacement 


Y  -*•  H 


1-R 
1+R  • 


(3.16) 


Therefore,  all  of  the  previous  results  hold  if  the  functions  fc^q^)  and 
^2 (*^1 1 )  are  define<i  to  be 

=  ki<qn>  ‘  GRki(qii}  (317) 


and 

k2(qll)  =  **2^11^  ~  Vl^ll5  ’ 


where 


1/3  _ _ _ 

VnftO)  -  p 


(3.18) 

-Jk 


(ofx  >  0)  . 


(3.19) 


When  reflection  occurs  from  a  surface  with  a  Gaussian  distribution  of 
bump  heights,  the  reflection  coefficient  R  can  be  represented  as  the  product 
of  the  smooth  surface  plane  wave  reflection  coefficient  and  a  surface 
roughness  factor  [17].  For  horizontal  polarization,  the  reflection  coefficient 
R  is  given  by 


r  v*  h^) 1  in] 
1  *" 


Re(qn)  >  0 


Re(qn)  <  0  , 


(3.20) 
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where  6  is  the  root  mean  square  surface  bump  height  and  is  the  Fresnel 
plane  wave  reflection  coefficient  for  horizontal  polarization 

Inf (0)  -  p2]1/2  -  f"2  -  «211/2 


(n2  -  P2] 


[nf(0)  -  P2]*'"  +  [n|  -  P2P 


When  Re(q.  )  <  0,  the  magnitude  of  the  exponential  factor  exp 


is  greater  than  one.  Since  modes  with  Re(qj^)  <  0  correspond  to  well-trapped 
modes  and  should  be  unaffected  by  the  surface,  the  exponential  factor  is  not 
included  in  R  when  ReCq^)  <  0. 


In  the  case  of  vertical  polarization,  R  is  given  by 


Ryexp 


Re(qn)  >  o 


Re(q,,)  <  0  , 


(3.22) 


where  Ry  is  the  Fresnel  plane  wave  reflection  coefficient  for  vertical 
polarization 

n2[nf(0)  -  p2 ]  1/2-  nf (0) [n2  -  p2]1/2 
^  n2[nf(0)  -  P2]1/2  +  nf(0){n2  -  p2]1/2 

o  o 

The  limits  of  as  the  rms  bump  height  6  approaches  zero  are 

Sh  ■  g  «T(£).  ■  *■■»»>  -  ^11/2  (y1/3(^) 


(3.23) 


(3.24) 


for  horizontal  polarization  and 


=  *  .  i[nf (•)  -  &-)UT£) 


.Zfnrxn  %  TETT1 


H  ■  ‘I»;  -  wI/2fe)I/3  •  ■*  •  «•»> 


Thus,  the  above  results  for  reflection  from  a  rough  surface  contain  the 
results  for  reflection  from  a  smooth  surface  as  a  special  case. 


The  coefficient  G_  and  its  derivative  ~ —  are  needed  when  evaluating  the 
K  dqll 

modal  function  and  its  derivative.  For  horizontal  polarization,  G  can  be 

RH 

written  as 


r  _  OlV/3  a(qn) 

RH  1\a1/  b(qn)  ’ 

m 

*  (?) '  (<1ii:,1/2tan*1(i) ♦[* *  (?)  '  ’n] 


(3.26) 


(3.27) 


»«n>  ■  > ♦  (yI/3<’,i>'I/2  -■>(!)  [« *  (?) 


2/3  “|l/2 

<iii 


T  »  n|  -  1  -  if)  “  axH 


*  ■  2k*62(?)  /3’h  ■ 


(3.28) 


(3.29) 


(3.30) 


For  small  values  of  | ^ |  ,  a(c  ,  )  and  b(q^)  have  the  series  expansions 
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The  corresponding  results  for  are 
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The  derivative  of  with  respect  to  is  equal  to 
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For  small  values  of  |q, ,|,  5 -  and  5 -  have  the  series  expansions 
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4.  COMPLEX  INDEX  OF  REFRACTION  OF  SEAWATER 


In  the  waveguide  formulation  for  tropospheric  ducting  of  electromagnetic 
waves,  one  of  the  physical  parameters  needed  for  evaluating  the  modal  function 
and  height-gain  functions  is  the  complex  index  of  refraction  of  seawater.  The 
complex  index  of  refraction  of  seawater  is  a  function  of  frequency, 
temperature,  and  salinity.  The  temperature  of  the  ocean's  surface  lies  between 
-2°C  and  32°C,  with  about  half  of  the  ocean's  surface  being  warmer  than  20°C. 
Although  the  salinity  of  the  ocean  near  the  mouth  of  large  rivers  may  approach 
zero,  the  salinity  of  most  water  in  the  open  ocean  lies  between  33  and  37 
grams  of  salt  per  kilogram  of  seawater,  and  35  g  salt/kg  seawater  is  often 
chosen  as  standard  [18]. 


The  complex  index  of  refraction  of  seawater,  n^,  can  be  related  to  an 
effective  relative  dielectric  function,  eej£»  and  an  effective  conductivity, 

°eff’  throu8h 


(4.1) 


where  £q  is  the  permittivity  of  free  space  and  has  the  value 

£q  =  8.85434  x  10" 12  F/m  ,  (4.2) 

while  f  =  ^  is  the  frequency  at  which  n^  is  to  be  evaluated.  The  effective 
dielectric  function  and  the  effective  conductivity  are  related  to  the  complex 
dielectric  function 

£  =  £'  -  i£' '  (4.3) 

and  the  ionic  conductivity,  a,  through 


'eff 


=  £ 


and 


(4.4) 


O  r  =  CT  +  UJ£  £"  (4.5) 

eff  o 

The  above  equations  assume  the  ionic  conductivity  to  have  an  imaginary  part  of 
zero.  For  frequencies  much  less  than  10*  GHz  this  is  a  good  approximation. 


I 


The  theory  o.'  an  ideal  polar  dielectric  in  an  alternating  electromagnetic 
field  was  given  by  Debye  [19]  in  terms  of  a  single  relaxation  time.  While 
Debye's  derivation  assumes  a  spherical  molecule  whose  free  rotations  are 
resisted  by  a  viscous  force,  all  that  is  needed  is  the  assumption  of 
exponential  relaxation  of  the  polarization  [20].  In  the  Debye  theory  the 
complex  dielectric  function  is  given  by 


e  =  e'  -  ie"  , 


(4.6) 


where 


£  =  £  + 


£  e 

s  -  00 


oo  i  +  or/xy 


£  £ 
s  “  oo 
=  £  +  - - - n—n— 

00  1  +  U)ZTZ 


(4.7) 


«=s  - 

1  t  (X  /A)2 

o 

(£s  -  tjm 

1  +  U»L/t'Z 


(4.8) 


(4.9) 


In  equations  (4.7,  4.8),  e  is  that  part  of  the  dielectric  function  which  is  due 

to  the  atomic  and  electronic  polarization  and  is  assumed  to  be  real  and 

independent  of  frequency,  and  £  is  the  static  (u>*0)  value  of  the  dielectric 

s 

function.  The  wavelength  of  the  alternating  electromagnetic  field  is  \,  while 

\  ,  the  characteristic  wavelength,  is  the  wavelength  corresponding  to  the 
s  1 

frequency  — ,  where  T  is  the  dielectric  relaxation  time.  Equations  (4. 6-4. 8) 
represent  the  fall  in  the  value  of  the  dielectric  function  from  £s(u^0)  to 
^(w+oo),  the  fall  being  accompanied  by  a  single  broad  absorption  band  in  the 
neighborhood  of  the  characteristic  wavelength,  X  .  The  representation  of  the 
variation  with  frequency  of  the  dielectric  function  in  terms  of  a  single 
dielectric  relaxation  time  T  should  be  valid  for  frequencies  up  to  300  GHz 
[21].  For  higher  frequencies  more  than  one  relaxation  time  will  be  needed. 


Some  of  the  earliest  experimental  work  on  the  dielectric  properties  of 
pure  water  and  aqueous  ionic  solutions  was  performed  by  JB  Hasted, 


CH  Collie,  and  DM  Ritson  [22,  23].  For  pure  water  they  measured  the  value  of 
the  complex  dielectric  function  at  the  wavelengths,  X,  of  10.00,  3.213,  and 
1.274  cm  (f  *  2.998,  9.331,  and  23.53  GHz)  for  temperatures  between  0°C  and 
75°C.  For  temperatures  in  the  range  0°C  to  40°C,  the  least-square  fit  to 
their  values  for  the  characteristic  wavelength  and  static  dielectric 
constant  is 

4P)  =  5.5  ,  (4.9) 

A(P)(T)  =  3.338  -  0.11417T  +  0.0022T2  -  1.833  x  i(f6T3  ,  (4.10) 

s 

and 

£(P)(T)  =  88.192  -  0.405T  +  0.0007T2  ,  (4.11) 

s 

where  T  is  in  degrees  Celsius  and  Xg  is  in  centimeters.  Equations  (4.9-4.11) 

give  the  parameters  in  the  Debye  equation  for  the  complex  dielectric  function 

of  pure  water  as  a  function  of  temperature.  For  seawater  there  is  a  lowering 

of  the  value  of  the  dielectric  function  from  its  pure  water  value  due  to 

saturation  of  the  dielectric  in  the  neighborhood  of  the  salt  ions.  Hasted, 

Ritson,  and  Collie  [23]  also  measured  the  complex  dielectric  function  of  ionic 

solutions.  For  NaCl  solutions  less  than  1.5  molar,  their  experimental  values 

could  be  fit  by  the  Debye  formula  with  A  and  e  ,  as  functions  of  temperature 

s  s 

and  salinity,  given  by 

A  (T,S)  =  A(P)(T)  -  0.08  c  (4.12) 

s  s 

and 

e  (T,S)  =  e<P)(T)  -  11.0  c  ,  (4.13) 

S  S 

where  Ag  is  again  in  centimeters  and  c  is  the  salt  concentration  in  moles  per 
liter.  They  assumed  that  the  value  of  for  NaCl  solutions  was  5.5,  the  same 
as  for  pure  water. 

A  more  recent  fit  of  the  Debye  model  parameters  has  been  obtained  by 
Klein  and  Swift  [24].  Assuming  that 

£ob=4.9  (4.14) 

for  both  pure  water  and  seawater,  they  found  that  the  static  dielectric 
constant  of  pure  water  is  given  by 
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e(P)(T)  =  88.045  -  0.4147T  +  6.295  x  10_4T2  +  1.075  x  10"5T3  ,  (4.15) 

s 

while  the  static  dielectric  constant  of  seawater  is  given  by 

es(T,S)  =  es(T)a(S,T)  ,  (4.16) 

where 

£  (T)  =  87.134  -  1.949  x  10-1T  -  1.276  x  10_2T2 
s 

+  2.491  x  io“4T3  (4.17) 

and 

a(S,T)  =  1.000  +  1.613  x  10*5ST  -  3.656  x  io'3S 

+  3.210  x  l(f5S2  -  4.232  x  l(f7S3  .  (4.18) 

The  temperature  T  is  in  degrees  Celsius  and  the  salinity  S  is  in  grams  of  salt 
per  kilogram  of  seawater.  When  S  =  0  the  expressions  (4.16-4.18)  for  the  static 
dielectric  constant  of  seawater  do  not  reduce  to  the  expression  (4.15)  for  the 
static  dielectric  constant  of  pure  water.  This  may  be  due  to  the  presence  of 
sulphates  and  nitrates  in  the  seawater  samples  measured  [24].  The  dielectric 
relaxation  time  of  seawater  in  the  Klein  and  Swift  model  is  given  by 

t(T,S)  =  t(T,0)b(S,T)  ,  (4.19) 

where  t(T,0)  is  the  pure  water  value  of  the  relaxation  time  and  is  equal  to 

t(T,0)  =  1.768  x  io"11  -  6.086  x  io"13T  +  1.104  x  l(fl4T2 

-  8.111  x  10-17T3  ,  (4.20) 

and 

b(S,T)  =  1.000  +  2.282  x  io"5ST  -  7.638  x  io"4S 

-  7.760  x  10"6S2  +  1.105  x  io'8S3  .  (4.21) 

The  dielectric  relaxation  time  is  in  seconds.  The  ionic  conductivity  of 
seawater  is  given  by 

o(T,S)  =  o(25,S)exp(-AP)  ,  (4.22) 

where 

A  =  25  -  T  ,  (4.23) 

P  =  2.033  x  io"2  +  1.266  x  l(f4A  +  2.464  x  10-6A2 

-  S[  1.849  x  io"5  -  2.551  x  10_7A  +  2.551  x  10"8A2]  ,  (4.24) 
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5.  SHELLMAN-MORFITT  ROOT-FINDING  ROUTINE 


When  the  mode  sum  formulation  of  the  tropospheric  ducting  problem  is  used, 
the  most  difficult  part  of  the  field  strength  calculations  is  determining  the 
zeros  of  the  modal  function.  For  the  trilinear  model  of  the  tropospheric 
index  of  refraction  considered  in  this  document,  the  modal  function  is  given 
by  equation  (2.124): 

"s"  =  ?(i5fr)1/3{  *  (J^i)1/3c(,1ii)x(<1ii)  *  ■  ‘5-» 


where  £(qn),  X(qn),  ^(q^),  and  (Kq^)  are  given  by  equations  (2.125-2.128) 
and  involve  sums  and  products  of  Airy  functions.  It  is  not  possible  to 
solve  equation  (5.1)  analytically  for  the  complex  zeros,  q^ .  Therefore, 
numerical  methods  must  be  used.  Several  algorithms  exist  for  finding  the 
complex  roots  of  transcendental  equations  [4,  25-27].  In  XWVG,  the  complex  root 
finding  routine  of  Shellman  and  Morfitt  is  used  to  find  the  zeros  of  the  modal 
function  (5.1).  This  routine  was  also  used  by  Goodhart  and  Pappert  [28]  and 
Marcus  [1,  2]  for  finding  the  zeros  of  modal  functions  for  linear  segmented 
models  of  tropospheric  refractivity. 


The  root-finding  routine  of  Shellman  and  Morfitt  locates  all  the  simple 
zeros  of  an  analytic  function  in  a  prescribed  rectangular  region  of  the 
complex  plane.  Initial  guesses  for  the  location  of  the  zeros  within  the 
prescribed  rectangular  region  of  the  complex  plane  are  not  required.  The 
root-finding  method  of  Shellman  and  Morfitt  is  based  on  the  theorem  [29]: 

Theorem:  Let  f(z)  be  a  meromorphic  function,  i.e.,  analytic  everywhere 
in  the  complex  z-plane  except  at  isolated  poles.  Let  T  be  a  closed 
contour  in  the  z-plane  such  that  there  are  no  zeros  or  poles  of  f(z)  on 
T.  Then,  the  accumulated  phase  change,  A$,  of  f(z)  around  T  traversed  in 
a  counterclockwise  direction  is  equal  to 


(A*)r  =  2n(N  -  N  ) 
l  z  p 


(5.2) 


N  is  the  number  of  zeros  enclosed  by  T  and  N  is  the  number  of  poles 
z  p 

enclosed  by  T.  When  determining  Nz  and  N^,  n-th  order  zeros  and  poles 
are  counted  n  times. 


For  a  function  that  has  only  zeros  in  the  region  enclosed  by  T  so  that  =  0, 
this  theorem  implies  that  every  phase  contour  associated  with  each  zero 
crosses  f. 


Consider  the  analytic  function  f(z).  In  terms  of  its  modulus  and  phase, 
f(z)  can  be  written  as 

f(z)  =  {[Re(i)l2  +  (Im(f)]2}V6  ,  (5.3) 

where  6  is  the  phase  of  f  and  is  given  by 


If  f(z)  has  no  poles  or  branch  points,  the  curve  for  the  constant  phase  value 
9  =  0c  radiating  from  a  zero  of  f(z)  must  cross  a  closed  contour  F  enclosing 
that  zero  at  least  once.  Furthermore,  no  other  zero  of  f(z)  may  be  on  this 

phase  curve.  See  figure  4.  A  curve  of  constant  phase,  e.g.,  ©c  =  0,  which 

crosses  the  closed  contour  F  may  be  followed  until  it  leads  to  a  zero  of  f(z) 

or  until  the  phase  curve  again  crosses  the  contour  T.  A  zero  of  f(z)  may  be 

determined  by  the  crossing  of  the  curves 


Figure  4.  Constant  phase  curves  for  an  analytic  function  with  three  simple 
zeros  in  the  region  enclosed  by  the  rectangular  contour  T. 

(0c  =  0  or  n) 


Iffl(f)  =  0 


(5.5) 


Re(f)  =  0 


/.  n  3  n\ 

(ec  =  2 or  r)  • 


(5.6) 


The  routine  of  Shellman  and  Morfitt  will  search  a  specified  rectangular 
region  of  the  complex  z-plane  for  the  simple  zeros  of  the  analytic  function 
f(z).  Let  the  edges  of  the  specified  search  rectangle  be  denoted  by  t^,  tR, 
t_,  and  t„,  where  t  and  tD  denote  the  value  of  the  real  part  of  z  at  the  left 
and  right  edges  of  the  search  rectangle  and  t^,  and  tR  denote  the  value  of  the 
imaginary  part  of  z  at  the  top  and  bottom  edges  of  the  search  rectangle.  This 
search  rectangle  is  divided  into  small  mesh  squares  in  which  each  mesh  square 
side  has  length  6.  Restrictions  upon  the  size  of  6  will  be  discussed  later. 

A  new  search  rectangle  is  generated  from  the  specified  search  rectangle.  The 
left  edge  of  this  new  search  rectangle  is  given  by 


J 


L 


(5.7) 


where  Int(x)  denotes  the  integer  part  of  x.  The  other  edges,  JR,  JT,  and  JR, 
of  this  new  search  rectangle  are  similarly  obtained.  Thus,  the  new  search 
rectangle  is  given  in  terms  of  mesh  units,  where  one  mesh  unit  is  of  length  6. 
Since  truncation  may  occur  in  evaluating  J^,  JR,  J^,,  and  JR,  this  new  search 
rectangle  is  made  one  mesh  size  larger  on  all  sides  in  order  to  ensure  that 
the  original  specified  search  rectangle  falls  completely  within  the  new  search 
rectangle.  If  the  original  specified  search  rectangle  is  near  a  branch  cut  or 
other  discontinuity  of  f(z),  this  expansion  of  the  search  region  could  cause 
problems . 


Consider  an  individual  mesh  square  in  the  new  expanded  search  rectangle 
as  shown  in  figure  5.  A  local  mesh  coordinate  system,  where  each  unit  is  of 
length  6,  may  be  set  up  as  shown  in  figure  6.  The  value  of  f(z)  evaluated  in 

(k) 

the  local  mesh  coordinates  of  mesh  square  k  is  denoted  by  f  (x^, 

as  shown  in  figure  6,  the  value  of  f(z)  at  the  origin  of  mesh  square  k  is 
fk) 

denoted  by  fv  '(0,0).  Note  that  for  each  mesh  square  the  lower  left-hand 
corner  is  taken  as  the  origin  in  that  mesh  square’s  local  coordinate  system. 
The  values  of  f(z)  at  the  corners  of  mesh  square  1  are 


(1)(0,1)  =  f(JL6  +  iJT6)  , 

(5.8) 

(1)(0,0)  =  f(JL6  +  i(JT  -  1]6)  , 

(5.9) 

uiR) .  Thus , 
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Figure  5.  Illustration  of  search  rectangle  and  mesh  grid  set 
up  in  the  complex  z-plane  by  the  Shellman-Morfitt  root¬ 
finding  routine.  The  plus  and  minus  signs  at  the  comers  of  the 
mesh  squares  indicate  the  sign  of  Im(f)-  Along  the  solid 
curves  Im(f)  -  0;  while  along  the  dashed  curves,  Re(f)  =  0. 

The  zeros  of  f(z)  are  located  at  the  intersection  of  the 
Im(f)  =  0  and  Re(f)  =  0  curves. 


Figure  6.  Local  mesh  coordinate 
system  and  numbering  of  the 
edges  of  mesh  square  k.  The 
value  of  f(z)  evaluated  at  the 
corners  of  mesh  square  k  are 
denoted  by  fOO  (xfc,  w^),  where 
Xj(  and  co](  equal  0  or  1  at  the 
corners. 


3 
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(5.10) 


A  basic  assumption  concerning  f(z)  made  in  the  algorithm  of  Shellman  and 
Morfitt  is  that  along  the  edges  of  every  mesh  square  k,  Re(f)  and  Im(f)  are 


linear  functions  of  the  local  mesh  coordinates  an<* 
in  mesh  square  k,  f(z)  can  be  written  as 


V 


This  implies  that 


f(k)(Xk’“k>  =  »k  *  bk“k  +  Vk  *  dkVk  •  t512) 

where  a^,  b^,  c^ ,  and  d^  are  complex  constants.  This  assumption  puts  an  upper 
limit  on  the  size  of  6  that  can  be  used.  If  6  is  too  large,  the  assumption 
that  f(z)  has  a  linear  variation  along  the  edges  of  the  mesh  squares  breaks 
down.  Thus,  6  should  be  chosen  small  enough  so  that  equation  (5.12)  is  a  good 
approximation  to  f(z).  In  order  to  reduce  computer  run  times,  however,  6 
should  not  be  excessively  small.  Note  that  equation  (5.12)  implies  that  in 
the  mesh  square,  the  curves  Im(f)  *  0  and  Re(f)  *  0  are  hyperbolic  curves  with 
vertical  and  horizontal  asymptotes. 


In  order  to  further  describe  the  workings  of  the  root-finding  routine  of 
Shellman  and  Morfitt,  use  will  be  made  of  the  example  shown  in  figure  5.  The 
zeros  of  f(z)  in  the  new  expanded  search  rectangle  are  looked  for  by  examining 
the  Imaginary  part  of  f(z)  counterclockwise  around  the  rectangular  contour. 
Intermediate  steps  of  investigating  mesh  squares  are  also  carried  out  counter¬ 
clockwise.  For  the  example  shown  in  figure  5,  the  edges  of  the  search  rec¬ 
tangle  are  examined  for  crossings  of  phase  curves  along  which  Im(f)  =  0, 
starting  with  mesh  square  1  edge  1.  The  values  lm[f^(0,l)]  and  lm[f^(0,0)] 
are  computed.  If,  as  shown  in  figure  5,  the  signs  of  these  two  values  are  the 
same,  then  there  can  be  no  Im(f)  =  0  curve  passing  through  edge  1  of  mesh 
square  1.  This  is  a  consequence  of  assuming  that  Im(f)  varies  linearly  along 
the  edges  of  the  mesh  squares. 
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Next,  mesh  square  2  is  investigated.  To  obtain  the  values 
( 2 )  l 21 

Im[fv  '  (0,1)]  and  Im[fv  ''(0,0)],  use  is  made  of  the  relationship 
lm[f(2)(0,l)]  =  lmlf(1)(0,0)]. 


(5.13) 


The  value  of  Im[f^  ^(0,0)]  will  be  a  new  computed  value.  If  the  signs  of 

(2)  (2) 

Im[fv  '(0,1)]  and  Im[f  (0,0)]  are  opposite,  as  shown  in  figure  5,  then  an 

Im(f)  *  0  curve  enters  mesh  square  2  somewhere  along  edge  1.  Because  of  the 
assumed  linearity  of  Im(f)  along  the  mesh  edge,  the  Im(f)  =  0  curve  AB  crosses 

edge  1  at 


x2  =  0 


w  =  -  _ lm[f(2)(0,0)] 

2  lm[f(2)(0,l)]  -  lm[f(2)(0,0)] 


(5.14) 


(5.15) 


The  problem  is  now  to  find  whether  a  zero  of  f(z)  lies  within  this  mesh  square 

and  where  the  curve  AB  exits  from  the  mesh  square.  First,  the  values 

I«[f ^2^(1,0)]  and  Im[f^2^(l,l)]  are  obtained.  The  values  of  Im(f)  at  all  four 

corners  of  the  mesh  square  are  now  known.  Next,  a  test  is  made  to  determine 

whether  there  are  one  or  two  Im(f)  =  0  curves  entering  and  leaving  the  mesh 

.  Ck)  fkl 

square.  If  the  values  Im[fv  '(0,0)]  and  Im[fv  '(1,1)]  have  the  same  sign, 
e.g.,  minus,  and  the  values  lm[f^(0,l)]  and  lm[f^(l,0)]  both  have  the 
opposite  sign,  e.g.,  plus,  then  there  are  two  Im(f)  =  0  curves  entering  and 
leaving  the  awsh  square.  This  situation  will  arise  in  mesh  square  14  of 
figure  5.  Otherwise,  there  is  only  one  Im(f)  =  0  curve  entering  and  leaving 
the  mesh  square,  as  in  mesh  square  2.  Next,  a  test  is  performed  to  determine 
whether  there  is  at  least  one  Re(f)  =  0  curve  entering  and  leaving  the  mesh 
square.  If  the  values  Re[f ^ (0,0) ] ,  Re[f ^ (1 ,0) ] ,  Re[ f ^ (i , i) ] ,  and 
Re{f  '(0,1)]  all  have  the  same  sign,  then  there  are  no  Re(f)  *  0  curves 
passing  through  the  mesh  square.  If  these  values  of  Re(f)  do  not  all  have  the 
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same  sign,  then  there  is  at  least  one  Re(f)  *  0  curve  entering  and  leaving  the 
mesh  square.  Mesh  square  2  does  not  have  a  Re(f)  =  0  curve  passing  through  it 
and  therefore  does  not  contain  a  zero  of  f(z).  The  edge  through  which  the 
Im(f)  =  0  curve  exits  the  mesh  square  can  be  determined  by  using  the  signs  of 
Im(f)  at  the  corners  of  the  mesh  square.  In  figure  5,  the  Im(f)  =  0  curve  AB 
exits  mesh  square  2  across  edge  2,  which  means  it  enters  mesh  square  3  across 
edge  4.  The  local  mesh  coordinates  of  mesh  square  3  where  the  curve  AB  enters 
mesh  square  3  can  be  determined  by  using  the  values 

lm[f(3)(0,l)]  =  Im[fC2)(0,0)]  (5.16) 

and 

Im[f(3)(l,l)]  =  lm[f(2)(l,0)]  (5.17) 

together  with  the  assumed  linearity  of  Im(f)  along  the  mesh  square  edge. 


The  Im(f)  -  0  curve  is  traced  through  the  search  rectangle,  and  each  mesh 
square  through  which  it  passes  is  checked  for  zeros  of  f(z).  In  figure  5, 
the  Im(f)  ■  0  curve  AB  is  followed  through  mesh  squares  2,  3,  7,  11,  10,  14, 
and  13.  The  tests  for  a  zero  of  f(z)  are  made  in  mesh  squares  3  and  7,  with 
the  same  results  as  in  mesh  square  2.  In  mesh  square  11,  however,  Im(f)  *  0 
and  Re(f)  ■  0  curves  both  pass  through  the  mesh  square.  On  the  basis  of  the 
values  of  f(z)  at  the  corners  of  the  mesh  square  and  the  assumed  linearity  of 
f(z)  along  the  mesh  square  edges,  the  value  of  f(z)  at  any  point  within  the 
mesh  square  can  be  determined  from 


(k) 

f  =  ak  +  bkWk  +  CkXk  *  dkWk*k  ’ 


where 


afc  =  f(k)(0,0) 
bk  =  f(k)(0,l) 
c.  =  f(k)(l,0)  -  f 


f(k)(0,0) 


(k) 


(0,0) 


and 


dfc  =  f(k)(0,0)  +  f(k)(l,l)  -  f(k)(0,l)  -  f(k)(l,0)  . 


(5.18) 

(5.19) 

(5.20) 

(5.21) 

(5.22) 
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The  point  of  intersection,  if  any,  of  the  curves  Im(f)  =  0  and  Re(f)  =  0  can 
then  be  determined.  The  mathematical  details  are  presented  in  the  report  by 
Morfitt  and  Shellman  [4]. 

After  determining  and  storing  the  approximate  location  of  the  zero  of 
f(z)  in  mesh  square  11,  the  contour  AB  is  followed  out  of  mesh  square  11  into 
mesh  square  10,  then  into  mesh  square  14.  Two  lm(f)  =  0  curves  and  one 
Re(f)  ■  0  curve  pass  through  mesh  square  14.  A  solution  for  a  zero  of  f(z) 
in  a  mesh  square  is  accepted  if  it  lies  on  the  Im(f)  =  0  curve  currently 
being  followed  [4].  When  the  contour  AB  is  followed,  the  zero  in  mesh 
square  14  will  be  ignored  since  it  falls  on  the  Im(f)  =  0  curve  CD.  When 
curve  CD  is  traced  through  the  search  rectangle,  this  zero  will  be  found 
again  and  stored.  From  mesh  square  14,  the  contour  AB  is  traced  to  mesh 
square  13,  where  it  exits  the  search  rectangle.  Information  that  gives 
the  mesh  square  and  edge  where  the  contour  AB  exits  the  search  rectangle 
is  stored.  Identifying  these  exit  points  makes  it  possible  to  avoid  later 
following  the  same  Im(f)  ■  0  curve  through  the  search  rectangle.  For 
example,  if  the  Im(f)  ■  0  trace  was  later  allowed  to  reenter  the  search 
rectangle  at  B,  the  same  zero  of  f(z)  in  mesh  square  11  would  be  found. 

After  the  Im(f)  *  0  curve  trace  exits  at  point  B,  the  search  for  zeros 
of  f(z)  is  continued  by  looking  for  more  crossings  of  Im(f)  =  0  curves  with  the 
rectangular  contour.  Since  mesh  square  2  was  the  last  mesh  square  examined 
for  such  crossings,  the  next  mesh  square  to  be  examined  will  be  mesh  square  3. 

The  next  crossing  of  an  Im(f)  =  0  curve  with  the  rectangular  contour  will 
occur  in  mesh  square  12.  Since  this  crossing  point  is  different  from  the 
previously  stored  exit  point  B,  the  Im(f)  =  0  curve  CD  will  be  followed 
through  the  search  rectangle.  The  zero  of  f(z)  in  mesh  square  14  will  again 
be  located;  and  since  it  lies  on  the  Im(f)  ■  0  curve  currently  being  traced,  its 
location  is  stored.  The  curve  CD  is  followed  the  rest  of  the  way  through  the 
search  rectangle,  and  the  exit  point  D  is  stored.  The  search  along  the 
rectangular  contour  then  continues  at  mesh  square  16.  At  mesh  square  20,  a  new 
crossing  of  an  Im(f)  ■  0  curve  with  the  rectangular  contour  is  detected.  The 
curve  EF  is  followed  through  the  search  rectangle,  and  the  exit  point  F  is  stored. 
No  zeros  of  f(z)  are  found  along  this  curve.  The  rectangular  contour  search 
continues  at  mesh  24  edge  2  and  goes  until  mesh  square  23,  where  another 


crossing  of  an  Im(f)  ”  0  curve  with  the  rectangular  contour  is  found.  But 
since  this  crossing  point  is  the  exit  point  found  when  following  the  curve 
EF,  it  is  ignored  and  the  rectangular  contour  search  continues.  The 
rectangular  contour  search  will  continue  as  described  above  until  the  search 
finally  gets  to  mesh  square  1  edge  4,  where  it  stops. 

The  zeros  of  f(z)  found  by  the  above  search  must  be  considered  as 
approximate,  since  the  approximation 


f  ^k’V  =  ak  +  W  +  ckxk  +  dkVk 


(5.23) 


was  used  in  each  mesh  square  containing  a  zero,  to  solve  for  the  location  of 
the  zero.  These  approximate  zero  locations  can  be  used,  however,  as  starting 
values  in  a  Newton-Raphson  iteration 


f(*A) 

2i+i  =  2i  "  FTiT)  * 

i 


(5.24) 


in  order  to  locate  the  zeros  to  within  a  preassigned  tolerance  e. 


When  the  Shellman-Morfitt  root-finding  routine  was  used  to  find  zeros  of 
the  modal  function  (5.1),  problems  were  encountered  in  locating  the  zeros  that 
lie  along  the  real  q^-axis.  These  zeros  correspond  to  well-trapped  modes. 

The  cause  of  this  difficulty  is  the  fact  that,  as  originally  implemented,  a 
mesh  line  would  always  fall  on  the  real  q^-axis.  The  Shellman-Morfitt 
algorithm  assumes  that  the  zeros  do  not  lie  on  a  mesh  line.  Since  some  of  the 
zeros  of  the  modal  function  fall  on  or  very  close  to  the  real  q^-axis, 
this  assumption  was  not  always  true  and  difficulties  ensued.  To  overcome  this, 
a  small  offset  was  used  to  move  the  mesh  lines  off  the  real  axis.  No  further 
difficulties  were  encountered  once  this  was  done. 


6.  SOLUTIONS  OF  STOKES'  DIFFERENTIAL  EQUATION 


When  the  modified  refractivity  profile  is  approximated  by  linear  segments, 
in  the  waveguide  formulation  of  propagation  of  electromagnetic  waves  in  tropo¬ 
spheric  ducts,  the  modal  equation  and  height-gain  functions  are  expressible  in 
terms  of  the  solutions  of  Stokes'  differential  equation 

|pr  +  4«j(4)  =  0  .  (6.1) 


Since  this  is  a  second-order  linear  differential  equation,  there  exist  two 
linearly  independent  solutions  u>j(4)  and  u>2 ( 4 )  •  Any  other  solution  to  (6.1) 
can  be  expressed  as  a  linear  combination  of  u)j(4)  and  11^(4) : 

y(4)  =  0^(4)  +  c2u>2(4)  .  (6.2) 

One  commonly  chosen  set  of  two  linearly  independent  solutions  of  (6.1) 
consists  of  the  Airy  functions  [30] 


u»j(4)  =  Ai(-4) 

and 


(6.3) 


u»2(4)  =  Bi(-4)  .  (6.4) 

The  Wronskian  for  this  set  of  linearly  independent  solutions  is 
W{Ai(-4),  Bi(-4)}  =  Ai(-4)  ||  (Bi(-4)]  -  ||[Ai(-4)]Bi(-4) 


While  Ai(~4)  and  Bi(~4)  are  analytically  linearly  independent  everywhere  in 
the  complex  4-plane,  they  are  numerically  linearly  independent  only  along  the 
real  axis  and  in  the  sector  |ph4]  <  y.  The  advantage  of  this  choice  of 
solutions  of  (6.1)  is  that  when  4  is  real,  both  Ai(-£)  and  Bi(-4)  are  real.  As 
-4  +  +  »,  Ai(~4)  decays  exponentially  while  Bi(-4)  grows  exponentially.  As 
“4  ■*  “  ®*  both  Ai(~4)  and  Bi(-4)  are  decaying  oscillatory  functions  of  the 
same  amplitude  and  with  interlacing  zeros. 


Another  possible  set  of  linearly  independent  solutions  of  (6.1)  consists 
of  [30] 

^(4)  =  Ai(-4)  (6.6) 

and 

u>2(4)  =  Ai(-4e2ni/3)  .  (6.7) 

The  Wronskian  corresponding  to  this  choice  of  linearly  independent  solutions 
is 

W{Ai(-4),  Ai(-4e27ti/3)}  =  -  ^  e'ni/6  .  (6.8) 

The  functions  Ai(~4)  and  Ai(-4e2;t^3)  are  numerically  linearly  independent  in 
the  upper  half  of  the  complex  4~plane‘ 

A  third  possible  choice  for  the  linearly  independent  solutions  of  (6.1) 
consists  of 

u>j(4)  =  Ai(-4)  (6.9) 

and 

UjCC)  =  Ai(-4e"27li/3)  •  (6-10) 

The  Wronskian  of  these  functions  is 

W{Ai(-4),  Ai(-4e"27li/3)}  =  -  ^  eni/6  .  (6.11) 

The  functions  Ai(~4)  and  Ai(~4e  2n*/3)  are  numerically  linearly  independent  in 
the  lower  half  of  the  complex  4"Plane- 

In  radio  propagation  work  other  choices  for  the  two  linearly  independent 
solutions  of  Stokes'  differential  equation  are  frequently  used.  One  such  set 
of  functions  is  the  modified  Hankel  functions  of  order  one-third  [13],  hj(4) 
and  h2(4).  The  modified  Hankel  functions  and  their  derivatives  are  related  to 
the  Airy  functions  by 

ht(4)  =  (12)1/6e'ni/6[Ai(-4)  -  iBi(-4)] 


=  -  2i(12)1/6Ai(-4e2*i/3)  , 


(6.12) 


(6.13) 


h2(|)  =  (12)1/6eni/6[Ai(-|)  +  iBi(-4)] 

=  2i(12)1/6Ai(-4e‘2,Xl/3)  , 
h’CC)  =  -(12)1/6e'ni/6[Ai’(-e)  -  iBi’(-4)] 

=  2i(12)1/6e2ni/3Ai'(-Ce27ri/3)  ,  (6.14) 

and 

h^(4)  =  -(12)1/6eni/6[Ai'(-4)  +  iBi'(-4)] 

=  -2i(12)1/6e"2ni/3Ai'(-£e"27li/3)  ,  (6.15) 

where  the  prime  denotes  the  derivative  with  respect  to  the  argument.  The 
Wronskian  of  hj(£)  and  h^(4)  is 

VfhjCC),  h2(|)}  =  -  ^  (|)  1/3  •  (6-16) 

Marcus  (1,  2]  uses  the  functions  kj(£)  and  (4)  as  the  two  linearly 
independent  solutions  of  (6.1).  These  functions  and  their  derivatives  are 
related  to  the  modified  Hankel  functions  and  the  Airy  functions  by 

4  (4)  =  hj(4) 

=  -2i(12)1/6Ai(-£e2ni/3)  ,  (6.17) 

k2(4)  =  h2(C)  -  e4ni/3h1(e) 

=  2(12)1/6e”i/6Ai(-4)  ,  (6.18) 

4  (4)  =  h*(4) 

=  2i(12)1/6e2ni/3Ai'(-Ce27li/3)  ,  (6.19) 

and 

k£(4)  =  -  e^7li/3h1'  (4) 

=  -2(12)1/6e7li/6Ai'(-4)  .  (6.20) 
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The  Wronskian  of  k^(4)  and  k^(4)  is 

wikjU),  k2(4)}  =  -  (|)  1/3 


(6.21) 


The  choice  of  which  set  of  linearly  independent  solutions  of  Stokes' 

differential  equation  to  use  is  dictated  by  the  boundary  conditions  and 

numerical  considerations.  The  arguments  of  the  Airy  functions  appearing  in 

the  solution  (2.32)  for  n(p,q^)  are  q^(z).  Since  Im(q^)  is  proportional  to 

the  attenuation  rate  of  the  electromagnetic  signal,  from  physical 

considerations  Im(q^j)  >  0.  This,  together  with  equations  (2.30)  and  (2.129) 

implies  that  lm[q.(z)]  >  0.  Therefore,  the  Airy  functions  occurring  in 
J 

n(p,q. )  are  all  evalutated  in  the  upper  half  of  the  complex  q-plane.  In  the 
upper  half  of  the  complex  plane  a  numerically  satisfactory  pair  of  linearly 
independent  solutions  of  Stokes'  differential  equation  consists  of  the  Airy 
functions  Ai(~4)  and  Ai(~4e2ni^3) ,  or  equivalently,  k^ (4)  and  k2(4). 


<v 

The  solution  II(p,z)  to  the  tropospheric  ducting  problem  has  to  satisfy 
the  boundary  condition  that  as  z  ■»  +  «,  Il(p,z)  must  represent  an  outgoing  wave 
with  time  dependence  e1U,t.  A  solution  of  Stokes'  differential  equation  that 
asymptotically  satisfies  this  requirement  is  Ai(-£e  2ni/3).  Therefore,  in 
order  to  satisfy  the  outgoing  wave  condition  in  the  topmost  layer  of  the 
modified  refractivity  profile,  Ai(-4e  27ti^3)  and  Ai(-£),  [or  equivalently, 
h2(4)  and  hj(|)-e  ^7l^^3h2(4)l  are  chosen  as  the  linearly  independent  set  of 
solutions  of  Stokes'  differential  equation.  While  this  set  of  solutions  does 
satisfy  the  outgoing  wave  boundary  condition,  it  is  not  a  numerically 
satisfactory  set  of  solutions  in  the  upper  half  of  the  complex  q-plane.  For 
this  reason  this  set  of  solutions  is  used  only  in  the  topmost  layer  of  the 
modified  refractivity  profile. 
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While  asymptotic  expansions  of  the  Airy  functions  Ai(z)  are  available  in 
the  literature  [30-32] ,  none  of  these  papers  gives  a  rigorous  upper  bound  for 
the  magnitude  of  the  error  associated  with  these  expansions.  These  bounds  are 
useful  for  the  writing  of  subroutines  to  evaluate  the  Airy  functions. 

Error  bounds  for  the  asymptotic  expansions  of  the  Airy  functions  are  next 
obtained  by  using  the  asymptotic  expansions  of  the  Hankel  functions  and 
modified  Bessel  functions  and  their  error  bounds. 

The  Airy  function  Ai(z)  and  its  derivative  are  related  to  the  Hankel 
functions  by 


Ai(-z)  =  j  (3 


(§)1/2 


Ai'(-z)  =5  ^ 


where 


t  -  2 

3  2 


The  Hankel  functions  have  the  asymptotic  expansions  [33] 

=  (|)1/2-p(u  - 1  «•*  -  Hi 

\  '  k=0 

+  I^U.v))  (-n  +  6  <  phi 


"v2)(»  *  (s|)1/2e»p(-i{  +  I  VKi  ♦  in.)  |  V(- 

\  '  k=0 

+  >  (-271  +  6  <  ph4  <  7r  -  6)  , 


i)kAk(v)Ck 


where  6  >  0.  The  coefficients  A^(v)  are  given  by 


(6.22) 


(6.23) 


(6.24) 


(-7t  +  6  <  ph£  <  27t  -  6)  (6.25) 


(6.26) 
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Aq(v)  =  1 


(6.27) 


and 


[4v2  -  l2][4v2  -  32]  •••  [4v2  -  (2k  -  l)2] 
K  8  k! 

The  error  term  n^^(4»v)is  bounded  by 

In^a.v)!  <  2|An(v)|d>^1)(C)exp||v2-i|$1(1)a)|  , 
where  the  error  control  function  <J>^^(4)  has  the  bounds 


(k  >  1) 


(6.28) 


(6.29) 


icrn  (o  <  Ph  t  <  7t) 

x(n)  icrn  \  <  phC  <  0;  n  <  ph£  1  (6.30) 

,2X(n) | Im (4) l”n  (-n  +  6  <  ph4  <  -  f ;  f5  <  ph£  <  2n  -  d) 


■ 


and 


X(n)  =  K1/2 


0°  *  0 
G-  *  I) ' 


(2) 

The  error  term  '(£,v)  is  bounded  by 

ln^2)(4,v)|  <  2|An(v)|^2)(|)exp  ||v2  -  ||<J>{2)(£)|  , 

(2) 

where  the  error  control  function  4*  ^  (|)  is  bounded  by 


(6.31) 


(6.32) 


ICI 


-n 


4»n2)(£)  5  J  X(n)iei'n 


(-n  <  ph£  <  0) 

(0  <  ph£  <  .  |?  <  phC  <  -  7t) 


2\(n)  I  Im(|)  |  ”n  (^  <  ph|  <  n  .  6  ;  _2n  +  6  <  phi  <  -  I5)  . 


When  v  =  equations  (6.25,  6.26)  become 


(6.33) 


HV3<» 


(-n  +  6  <  ph|  <  2n  -  6) 


(W/2  -3/4  /.23'2  5tu\(  , 

-  Is)  2  exi>\l32  'irj|kf0<- 


5ni\  I  *  ,  ,,k„  -3k/2  .  „ 

‘  IT h  ,l <‘l)  Ck2  +1 


<»(P2,  I)} 


i-~  +61  <  phz  <  -  6’) 


(6.34) 


and 


"S/3«> 


■  Olf-H  *  *k(i>-k  *  nf  >(e,  j; 


(-2tt  +  65  ph£  <  n  -  6) 


=  (^M-¥n  *  frjfcv*'*  *  ^i¥n’  I)} 


(™  +  6’  <  phz  <  -  6’)  . 


The  coefficients  A^Qyand  are  given  by 


C  =  1 
o 


(6.35) 


(6.36) 


and 


\G>  <-»k  7S  s 


=  [9  -  4]  181  -  4)  •  •  •  [9 (2k  -  l)2  -  4]  (fc  > 


32k  23k  k! 


1) 


(6.37) 


The  error  terms  ^,^and  are  bounded  by 

i  r  v"1  (O-rfe  *lM 


(6.38) 
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=  (-Dk  11 “H81  -  16lM:t9(2k-  1)'  -  16]  (k  >  1}  .  (6<M 

32*  2Jk  kJ 


The  error  terns  and  are  bounded  by 

'""’(t-l)1  i  ^  'D„'<n^{k*S1)(^ 


(6.45 


(6.46 


Combining  the  above  results  with  equation  (6.23)  yields  the  asymptotic 
expansion 


Ai’(-Z)  =  -  JTT~1/2  Z1A 


“»(i*+?)[£‘V*/2^i>(t’  i) 


f)]j 


f-  fs  *  «•  <  phz  <  |2  -  6'). 


(6.47 


In  order  for  asymptotic  expansions  of  Ai(z)  and  Ai'(z)  valid  for  other 
values  of  phz  to  be  obtained,  the  equations  [30] 


relating  the  Airy  functions  to  the  modified  Bessel  functions,  are  used.  In 
equations  (6.48,  6.49),  £  is  again  related  to  z  by 


t  -  F'2 


(6.50) 


The  modified  Bessel  functions  have  the  asymptotic  expansion  [33-35] 


*  (y/2«'5{^  vv«'k  ♦  v£'v)} 


(.|I!  +  6  <  phi  <  _  6)  > 


(6.51) 


where  the  coefficients  A. (v)  are  again  given  by  equations  (6.27,  6.28).  The 


error  term  yQ(4»v)  is  bounded  by 


|yn(4,v)|  <  2|An(v)|^n(4)exp|[v2  -  i|M»j(4)}  , 


(6.52) 


where  the  error  control  function  4>n(4)  has  the  bounds 

r  m~a  (iph£i  <  f) 

♦n(0  <  <  x(n)l4l"n  (g  <  Iph^l  5  n) 

l  2X(n)|Re(4)fn  (n  <  |ph£|  <  f5  -  fi)  . 


When  v  =  equations  (6.51,  6.52)  become 
K./3«>  ■  Ak(^'k  ♦».(«•  j)} 

(-?  ♦  6  <  ph£  <  §5  -  6) 


_  /3 n\1/2  -3/4  /  2  3/2 

-(r)  2  ex^  \  3 2 


)jVc- 

7  (k=0 


(6.53) 


l)kCk  z_3k/2  + 


>3n-  5)} 


(-71  +  6'  <  phz  <ti-6')  , 


(6.54) 
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where  the  error  term  is  bounded  by 


lYn(?’  I)1  ' 


(6.55) 


Substituting  equation  (6.54)  into  equation  (6.48)  yields  the  asymptotic 


expansion 


Ai(z)  =  ,.^-W!  ,  y 

(k=0  K  ' 


■-(«•  §)} 


(-  n  +  6'  <  phz  <  7t  -  6’)  . 


(6.56) 


Putting  v  =  j  in  equations  (6.51,  6.52)  yields  the  asymptotic  expansion 


K2/3(|)  =  V2 V  6 


(y  '  {{k!o  *k^)  S  k  *  vn(«  •  !)} 


(-|5  *  6  <  ph{  <  -  a) 


_/3n\1/2  -3/4  /  2  3/2\(n‘*  n  -3k/2  ^  /2  3/2  2\| 

Hr)  2  “f  \3Z  )y„  Dk2  +  Yb\32  ’  s)J 


(-71  +  6'  <  phz  <71  -  6'), 


(6.57) 


where  the  error  term  is  bounded  by 


lYo(5-  I)1 


(6.58) 


Combining  equations  (6.57)  and  (6.49)  yields 


(-  7t  +  6  <  phz  <  7t  -  6) 


(6.59) 


Consider  the  asymptotic  expansion  (6.40) 


(-  Y  +  6  1  phz  i  Y  “  6)  •  (6.60) 

Let  Rj  be  the  ratio  of  the  bound  for  the  error  term  ^  to  the  modulus 

k  -3k/2 

of  the  first  neglected  term  in  the  series  =  Z(-i)  C^z  .  When  0  <  phz  < 
^  -  6t  this  ratio  is  approximately  2.  When  <  phz  <0,  R^  is  approximately 
2x(n).  When  -  +  6  <  phz  <  -  Rj  is  approximately  4x(n)cscn^|fi^  .  As  6  -*• 

0,  this  last  bound  grows  sharply,  warning  that  if  ^  is  neglected,  this 

asymptotic  expansion  for  Ai(-z)  is  inaccurate  for  numerical  work  near  the 
boundary  phz  =  "  3“  •  Let  R2  be  the  ratio  of  the  bound  for  the  error  term 
n£2)(|,  to  the  modulus  of  the  first  neglected  term  in  the  series  = 

IikCfez  ^ 2 .  When  -  +  5  <  ph2  <  q,  the  ratio  R2  is  approximately  2.  When  0 

<  phz  <  ^  ,  the  ratio  R2  is  approximately  2x(n) .  When  ^  <  phz  <  -  6,  the 

ratio  R2  is  approximately  4x(n)cscn06^ .  Again,  as  6  -*■  0,  this  bound  grows 
sharply,  indicating  that  the  asymptotic  expansion  (6.60)  is  inaccurate  for 
numerical  work  near  the  boundary  phz  =  j-.  Therefore,  the  asymptotic 
expansion  (6.60)  for  Ai(-z)  is  satisfactory  for  numerical  computation  in  the 
phase  range  -  ^  <  phz  <  ^.  An  identical  argument  gives  the  same  result  for 
the  asymptotic  expansion  (6.47)  for  Ai'(-z). 

Now  consider  the  asymptotic  expansion  (6.56) 

g  c-n  V3k/2  *  vn(5.  i)j 

(-71  +  65  Phz  1  n  -  6)  (6.61) 
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i 


Let  R  be  the  ratio  of  the  bound  for  the  error  term  Yn^C»  to  the  modulus  of 
the  first  neglected  term  in  the  series  I(-l)kCkz~3k^2.  When  <  phz  <  the 
ratio  R  is  approximately  2.  When  <  phz  <  or  ^  <  phz  <  ,  this  ratio 

is  approximately  2x(n).  Finally,  when  -ti  +  6  <  phz  <  -  y-  or  <  phz  <  n  -  6, 
this  ratio  is  approxiaiately  4x(n)  secn(|  phz).  This  last  value  grows  sharply 
as  phz  •+  -  7C  or  phz  -*•  n,  indicating  that  the  asymptotic  expansion  (6.61)  for  Ai(z) 
is  inaccurate  for  numerical  work  near  the  boundaries  phz  =  -tt  and  it.  Therefore, 

r\  _ 

this  asymptotic  expansion  is  satisfactory  for  numerical  work  in  the  sector  — ^ 

<  phz  <  — ^ .  An  identical  argument  yields  the  same  result  for  the  asymptotic 
expansion  (6.59)  for  Ai'(z). 


In  summary,  the  Airy  function  Ai(z)  and  its  derivative  have  the 
asymptotic  expansions 


Ai(z)  =  !„-l/Vl/VS 


jv 

(  k=0 


(-l)kC„Z-3k^  ♦  x 


.(«.  J)} 


(•  r  - ph2  i  f)  - 


(6.62) 


Ai(-z)  =  K1/2-'1/4<exP 


'(*  '  ?)[“!'  H)lV'!k/!  +  n(“(t  5) 


(■  5  -  phz  -  f )  • 


(6.63) 


Af(z)  =  -  iz-'/2z1/4  e^fY  D„z'3k'2  t 

(k=0 


'.(«•  §)| 


(2 n  .  .  ,  2n\ 

(-  r  <  phz  i  r)  * 


(6.64) 
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and 


iV3k/2 


(6.65) 


where 


4  = 


23/2 

32 


(6.66) 


The  coefficients  and  are  given  by  equations  (6.37)  and  (6.44).  They  can 
be  calculated  using  the  recursion  relations 


c  = 

o 

1  , 

(6.67) 

Ck  = 

9 (2k  -  l)2 
48k 

-  4 

ck-i 

(k  >  1) 

> 

(6.68) 

D  = 
o 

1  , 

(6.69) 

and 

Dk  = 

9(2k  -  l)2  - 
48k 

-  Vi 

(k  > 

1)  • 

(6.70) 

The 

error 

terms 

'n 

(M 

1).  ^(i,  |) 

1.  -f’O 

1).  n£2)(4,  §)• 

1.0 

and  Yn(^’ 

are  bounded  by 

m"’ 

(«•  0'  £ 

2n+l 

3n 

(4)}. 

(6.71) 

COft-* 

1  A 

2n+l 

3n 

c„*‘2)(S)exp 

{^2) 

(4)}, 

(6.72) 

(6.73) 


!)> 

5  23„  iDni^1)(£)«xp{^;i)(i)}, 

(6.73) 

— 

'<2)(«-  §)■ 

i  23»  'Dnl^2)«)“p{|^<2)(5)}, 

(6.74) 

: 

lYn  (t  3)1 

,n+l 

<  f -  c  (4) exp 

-  3n  n^n  *  r 

(6.75) 

* 

(*•  I)' 

n+1 

<  3n  >W£)exP 

(6.76) 

~  j 

error  control 

functions  0^^(4) 

»  <t»„2)a),  and  4»n(£)  are  bounded  by 

—a 

wal 

ricrn 

(0  <  ph4  <  n) 

3 

♦‘"’co  5  < 

X(n)l4l"n 

(-  \  1  PhC  <  0  ;  71  <  ph4  <  y) 

*  V 

^2x(n)|Im(4)rn 

(-n  +  6  <  ph4  <  -  \  ;  ~  -  ph£  - 

2n  -  fi), 

(6.77) 

^141"“ 

(-n  <  ph4  <  0) 

♦‘2)«>  <  < 

x(n)icrn 

(0  <  ph4  <  \  ;  -  |  <  ph4  <  -u)* 

^2x(n)|Im(4)|-n 

(^  <  ph^  <  n  -  6  ;  -2ti  +  6  <  Ph4 

±-r)> 

•- 

(6.78) 

ricfn 

Hs  p«sS) 

\  • 

♦„(£)  <  < 

X(n)lCl‘n 

(-n  <  ph4  <  -  ^  ^  <  phi  < 

<1  ^ 

2x(n)|Re(£)fn  (-  f-  +  6  <  ph£  <  -n  ;  n  <  ph|  <  -fi)  , 

(6.79) 
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where  6  >  0  and 

1(a)  -  *l/2  ^ 

X(n)  ‘  *  r/l  '  1\ 

r(2°  *  2> 


(6.80) 


Substituting  the  results  for  the  asymptotic  expansions  of  the  Airy 
function  and  its  derivative  into  equations  (6.12-6.15)  yields  the  asymptotic 
expansions  of  the  modified  Hankel  functions  of  order  one-third  and  their 


derivatives.  The  results  are 


hj(z) 


m,^/6  -1/2  -1/4 
(12)  n'z  exp 


(-  f  <  phz  <  nj. 


..k_  -3k/ 2  ,  „ 

1)  C,  z  +  n 


(6.81) 


h,(z)  =  ikckz-3k/2  ♦  n<1)(te’ti,  I) 

k-0 


♦  a2)1/6a'1/2z‘1/4exp 


5rti\  n"1  ,  . ,k_  -3k/2  .  (1 )/.  2ni  1\ 

(lS-ir)[J0  ('l)  Ck2  *  %  (**  -3) 


(-  n  <  phz  <  -  |)  ,  I 

S(z)  =  i(. e,p(iC  -  |f)rV  ikD(.z'3k/2  ♦  n<»(4>  |) 

^  <  phz  <  nj  ,  ( 


(6.82) 


(6.83) 


b!(z)  =  W'V1'2*1'4  ex pAc-^h1 

V  1  |_k=0 


-  i(12)1/6nf  1/2z1/4  exp 


(*- !?)[■*;  ‘Vm  *  w  o' 

(-*  -  HP)[i  <->V3k/2  *  §] 


(-  n  <  phz  <  -  > 


(6.84) 


h2  (z) 


1/6  -1/2  -1/4 
(12)  n  z  exp 


("  n  1  Phz  1  5).  ( 


(6.85) 


h_(z)  =  (W)1'6*-1'2.-1'4. 


ikC,z-3k/2  + 
k 


n‘2,(^‘2ni-  5 


♦  (12)1/V1/2z-'/4«p(a  ♦  [V  (-i)kctz-3k«  ♦  n<2)(?e-"i,  i) 

(5  1  phz  <  ,  (6.86) 


-1/2  1/4 
h_(z)  =  -i(12)  n  2  exp 


(-i)V.-M  *  n 


‘2,(^.  1)’ 


("  n  <  Phz  <  5)  . 


(6.87) 


hl(z)  =  i(12)1/V1/2z1/4 


/.(.  .  Il7ti\  nZ1  . 

**  *")[«  1 


.k_  -3k/2  A 

1  T).  z  +  n 


.,10,l/6  -1/2  1/4 
i(12)  n  z  exp 


(-«  +  if)  31  <‘i)V'3k/2  4  n^e--  I) 

0  1  phz  <  (6.88) 


Using  equations  (6.17-6.20),  which  relate  the  functions  k^(z)  and  k^(z)  to 


the  Airy  functions,  together  with  the  asymptotic  expansions  for  the  Airy 
functions  yields 


Kviv.v.*.- >. 
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kj(.)  = 


=xp(ii  -  fsi)  V  (-i 
(-  5  i  pbz  £  » 


i)  V3k/2  +  n 


d1^.  li) 


(6.89) 


lr  (r,\  -  fn\1/6*"1/2.*1/4 _ /  t  ll7Ii\  “v1  -3k/2  .  fl)/t  Hi  1\ 

kj(z)  -  (12)  it  z  exp^-i|  -  I  i  Ckz  '  +  0^  ^ ) 

k-0 

*  02)uV«Vu‘t,(i{  -  If)  h1  (-i)V3k'2  *  n*1)(?e2"i.  I) 

k-0 

It  <  phz  <  -  ^  ,  (6.90) 

i(2)  =  id^/V^V/*  exp(i4  -  ffi)  r V  i  V3k/2  +  nj1^.  I) ' 

^  <  phz  <  ,  (6.91) 


(6.90) 


k’(z)  =  i(12)1/6n'1/2z1/4  exp 


(6.91) 


kj  (z)  =  i(  !2)1/V1/221/4  exp 


.,ioa/6  -1/2  1/4 
-  i(12)  it  z  exp 


=xp(u-gi)[v  iV3k/2^i,(^,i; 

e*  -  ♦  W1.  S 

(-  it  <  phz  <  -  ^  ,  (6.92) 


k,(2)  =  (12)1/V1/V1/4exp(-i4  + 


\  \n'1 

)  2  1 

'  k=0 


.k.  -3k/2  (2) / *  1 

1  Ck2  +  nn  V4,  3 


h„l /6  -1/2  -1/4 
-  (12)  it  z  exp 


(  t  .  llniN  ,  ,.kr  -3k/2  .  fl)/t  1 

V4  +  "Tr;  k!0  ('°  ckz  +  %  V4’  3 

(-  5  i  Phz  1  ?)  ’  0 


(6.93) 


k2(z)  = 


(to} 1/6_“l/2  -1/4 
-(12)  7t  z  exp 


(i{  +  tt)  [k!0  <-»  V3k/2  ♦  vn(ie3"i/2, 

(-  |5  <  phz  <  -  5)  , 


(6.94) 


k2(z)  =  ♦  5fi)  “i1  ikCkz-3k'2  *  Yn(ie-M/2,  f 

k-0  * 


(|<phz  <|2), 


(6.95) 


4<z)  =  *  ilfi)  “i1  Akz-3k/2 .  „<»(?,  f) 

k-0 


KwW^-11  ♦  ffi)  V  (-1) V3k/2  *  n‘2)(t.  I) 

k-0 


n-1 


(- 1  <  pi*  1 1 ) . 


(6.96) 


k£(z)  =  -i(12)1/67c"1/2z1/4- 


«•(*«  *  Hf)  j'  ‘V'3k/!  *  V„(tz3«/2,  |) 


k=0 


(-  |2  <  phz  <  -  5) , 


(6.97) 


and 


k’(z)  =  -i(12)1/6n"1/2z1/A' 


exp(-iC  +  ffi)  V  (-i)kDk2"3k/2  +  Yn(4e"37Ti/2, 

k-0 


(fSPtalt5) 


(6.98) 


Equations  (6.94)  and  (6.95)  are  equivalent,  as  are  equations  (6.97)  and 
(6.98).  This  is  to  be  expected  since  the  Airy  function  and  its  derivative 
entire. 


are 


CM  |  CO 


The  preceding  asymptotic  expansions  can  be  used  to  calculate  Ai(z)  and 
Ai'(z)  when  |z|  is  large.  The  given  error  bounds  can  be  used  to  determine  how 
large  |z|  must  be  in  order  to  guarantee  a  given  accuracy.  For  small  values  of 
I z |  the  Airy  functions  can  be  evaluated  by  using  the  series  expansions  [30] 


Ai(z)  =  CjfCz)  -  c2g(z) 


and 


Ai'(z)  =  Cjf'Cz)  -  c2g'(z) 


where 


f(z)  =13 
k=0 


f'(z)  =13 
k=l 


g(z)  =13 
k=0 


and 


g'(z)  =  l  3 
k=0 


r(k  ♦  1) 

3k 

z 

r(l) 

(3k)!  ’ 

r(k  ♦  |) 

3k  -  1 
z 

rG) 

(3k  -  1) 

r(k  +  1) 

3k  +  1 
z 

r(D 

(3k  +  1)! 

r(k  *  1) 

3k 

z 

(1) 


(3k)! 


(6.99) 

(6.100) 

(6.101) 

(6.102) 

(6.103) 

(6.104) 


The  constants  c,  and  c„  are 


In  this  section  an  upper  bound  for  the  error  introduced  by  truncating  the 
above  series  for  f(z)  and  g(z)  and  their  derivatives  at  N  terms  will  be 
obtained.  The  largest  absolute  error  due  to  truncation  wil1  c  :cur  when  all 
the  terms  in  the  series  have  the  same  sign,  i.e.,  when  z  =  x  is  real  and 
positive.  Except  in  the  neighborhood  of  the  zeros  of  Ai(z)  and  Ai'(z),  the 
largest  relative  error  will  also  occur  when  z  =  x  is  real  and  positive. 

The  truncated  series  approximations  for  the  Airy  function  and  its 
derivative  are  given  by 


Aijj(z)  =  CjfjjCz)  -  c2gN(z) 


(6.107) 


Ai'  (z)  =  c  f' (z)  -  c,g'(z)  , 


(6.108) 


where 


N-l  T(k  +  i)  3k 

£»(2)  =  *=<, 3  nir  ***  ■ 


(6.109) 


fV).  N;l3k  rlk  *  II 

K  r(i)  <3k  -  »'  ’ 


(6.110) 


N-l  r(k  +  |  )  3k+l 
«■(»)  =  ^  3  " "  ~7o\' 


r(|)  (3k  +i)! 


(6.111) 


*N(2)  = 


N;1  rik  +  ti  z3k 

*=°  r(f) 


(6. 112) 


are  N  term  approximations  to  the  infinite  series  (6.101-6.104) 


The  absolute  error  in  approximating  Ai(z)  with  Aijj(z)  is 
|Ai(z)  -  Aijj(z)  |  .  This  is  bounded  by 
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■:o 


I 


N 


I 


i>i 


I 


|Ai(z)  -  Ai^(z) |  <  cj | eN(z) I  +  c2|6n(z)|  , 


where 


eN(z)  =  f(z)  -  fN(z) 


and 


6n(z)  =  g(z )  -  gN(z)  . 
Similarly,  for  the  derivative  Ai'(z) 


I Ai * (z)  -  Ai'N(z)|  <  c j | eN ( z ) |  +  c2 1 6N(z) |  , 


where 


and 


eN(z)  =  f’(z)  -  f^(z) 


5n(z)  =  g'(z)  -  gjJj(z) 


(6.113) 


(6.114) 


(6.115) 


(6.116) 


(6.117) 


(6.118) 


An  upper  bound  for  |e^(z)|  can  be  obtained  in  the  following  manner.  The 


truncation  error  eN(z)  for  f(z)  is 


00  k  F 
eN(z)  =2  3* 


M) 


k=N 


3k 


os yr 


r(J  *  "  *  s)  ,1.31 


3Nz3N  00  k 

J  z  y  _ i _ Vz~ 

r(3j  +  3N  +  1)  J 


W 

The  triplication  formula  for  the  gamma  function  [36]  yields 

r(3i  *  »  *  i)  =  r^[i  ♦»»!]) 

r(l  +  n  +  i)r(i  ♦  x  -  |)r(i  +  n  +  1) 


(6.119) 


i_  3j+3N+i 

2rr 


(6.120) 


Therefore 


,3N  « 

£  (Z\  -  .  _  V 

r-/l\«2N+*S 


1 


r(I)3- 


j=o  r  (j  +  n  +  |)  r(j  +  n  +  i)\32 
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(6.121) 


Now, 


r  (j  +  n  +  p  >  r(j  +  n) 


(6.122) 


for  all  j  >  0  if  N  >  2.  Hence 


i£  mi  <  2n|z|3N  *  _ 1 _  /  |z|  J\J 

N  77p^  j=o  r(j  +  n)  rcj  +  n  +  i)  '  9  ' 


(N  >  2).  (6.123) 


The  gamma  functions  in  the  sum  in  (6.123)  satisfy  the  inequalities 

r(j  +  n)  >  r(N)r(j  +  i)  =  (n  -  i)*j! 


(6.124) 


r(j  +  n  +  i)  >  r(N  +  i)r(j  +  i)  =  niji  . 


Therefore, 


1^(2)! 


2ti|z|3M 

(f)3 "  1)1  N! 


j=0  (j!)2^9  ) 


(6.125) 


(6.126) 


The  modified  Bessel  function 


satisfies  the  inequality  [15] 


(6.127) 


(6.128) 


This  yields 


<  MW 


-  1) IN! 


/|z|3\N  (2. 

VT“)  expV3' 


(N  >  2)  ,  (6.129) 


C.le^Cz)!  <  -r-rs - 

1  H  3^'J(N  -  1) IN! 


(M!)%(iul3/2) 


(N  >  2).  (6.130) 
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Similarly,  the  truncation  errors  6^(z),  £^(z),  and  6^(z)  are  bounded  by 


'Vz)l '  exp(f|z|3/2) 


(N  >  1)  ,  (6.131) 


|eNCz) I  < 


and 


2tv/3 


r©[(N  "  1)1)2  |z| 


—  (-^^exp(||z|3/2)  (N  >  2)  ,  (6.132) 


(N  >  2)  .  (6.133) 


The  absolute  errors  due  to  truncation  of  the  infinite  series  (6.101-6.104)  for 
Ai(z)  and  Ai'(z)  are  therefore  bounded  by 


|Ai(z)  -  Ai„(z)|  <  32/3(m  [  1)!H,(ifL)  =«P(1U|3/2)  [l  ♦  3'2/3 

(N  >  2)  ,  (6.134) 


and 


|Ai’(z)  -  Ai'N(z)|  < 


,1/3 


UN  -  I)!]*  |z| 


1 [■ ♦ 3'2/3  ¥\ 


(N  >  2)  .  (6.135) 


When  z  =  x  is  real  and  positive,  the  asymptotic  approximations  for  Ai(x) 
and  Ai’(x)  can  be  used  easily  to  obtain  bounds  for  the  relative  error.  The 
Airy  function  Ai(x)  and  its  derivative  have  the  asymptotic  approximations 

Ai(x)  =  In"1/2  x‘1/4  exp  |x3/^|l  +  Y^fx3^2,  |)j  (x  >  0)  (6.136) 

and 

Ai'(x)  =  -  |n“1/2  x1/4  exp  |x3/2)  ^1  +  Y^fx372  ,  §)]  (x  >  0)  ,  (6.137) 


teg 
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(6.138) 


where  the  error  terms  are  bounded  by 

.  (2  312  l\,  ,  5  -3/2  /5  -3/2\ 

1 W  ’  s)1  S  24x  "Hs*  ) 

and 


3/2 


(6.139) 


The  relative  error  in  the  value  of  Ai(x)  due  to  truncation  is  therefore 
bounded  by 


I Ai (x)  -  Ai„(x)| 


|Ai(x) | 

‘  32/3 

x  ,-2/3  x" 
N 

\[-y 

2 Jix1/4 


(N  -  1) !N! 
-3/2 


(r)  exp(f*3/2)[1 


>xp(|5x'3/2)] 


(x  >  0.52,  N  >  2),  (6.140) 


while  the  relative  error  in  Ai'(x)  due  to  truncation  is  bounded  by 


I  Ai  *  (x)  -  Ai’N(x)|  2Vn  31/3X~5/4 


| Ai' (x) | 
+  3~2^3 


UK  -  \)\Y 


g][l  -  ^x"3/2exp(^x'3/2)]  1  (x  >  0.65,  N  >  2)  .  (6.141) 


These  bounds  for  the  absolute  and  relative  errors  in  Ai(x)  and  Ai'(x)  due  to 
truncation  are  upper  bounds.  In  most  cases  these  bounds  are  unduly 
pessimistic. 


Another  major  source  of  error  in  calculating  the  Airy  function  and  its 
derivative  from  equations  (6.99,  6.100)  is  cancellation  error.  The  functions 
f(z)  and  g(z)  can  be  expressed  in  terms  of  the  Airy  functions  Ai(z)  and  Bi(z) 
by  [30] 

f(z)  =  2^~  £  ~Bi(z)  +  Ai(z)j  (6.142) 

and 

g(z)  =  2^“^Bi(z)  -  Ai(z)j  .  (6.143) 


C? 
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The  derivatives  of  f(z)  and  g(z)  are  given  by 


f '  (z) 


=  57“  ~Bi’  (z)  +  Ai’  (z) 

1  IS  -I 


(6.144) 


g'(z)  =  — Bi*  (z)  +  Ai'(z) 

2  IS  J 


(6.145) 


When  z  =  x  is  real  and  positive,  the  Airy  functions  Ai(x)  and  Bi(x)  and  their 
derivatives  have  the  asymptotic  approximations  [30] 


MOO  -  in-^-VVS  , 


(6.146) 


D. ,  .  -1/2  -1/4  4 

Bi(x)  ~  n  x  e*  , 


(6.147) 


Ai'(x)  ~  -  . 


(6.148) 


Bi' (x)  -  a'1'2*1'4.*  , 


where 


t  ■  §*3/2 


(6.149) 


(6.150) 


Thus,  the  functions  f(x)  and  g(x)  and  their  derivatives  all  increase 
exponentially  with  increasing  x.  Since  Ai(x)  and  Ai'(x)  decrease 
exponentially  with  increasing  x,  severe  cancellation  errors  can  arise  when 
using  equations  (6.99,  6.100)  to  calculate  Ai(x)  and  Ai'(x).  For  example,  at  x  = 
4.0  the  value  of  Ai(x)  is  Ai(x)  =  0.000952, while  the  values  of  c^f(x)  and 
c2g(x)  are  Cjf(x)  S  24.204  and  c2g(x)  =  24.204.  In  order  to  obtain  three 
significant  figures  for  Ai(x)  at  x  =  4.0,  eight  significant  figures  are  needed  in 
Cjf(x)  and  c2g(x).  For  reasonably  large  values  of  N,  cancellation  error  is 
much  more  significant  than  truncation  error. 
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7.  EXTENDED  COMPLEX  ARITHMETIC 


Because  of  the  exponential  nature  of  the  Airy  functions,  the  numerical 
evaluation  of  the  modal  function  (2.124)  easily  can  yield  complex  numbers  with 
magnitudes  as  large  as  10  or  as  small  as  10  Numbers  of  this  size 

are  outside  the  range  of  most  computers,  so  special  methods  to  handle  them  had 
to  be  incorporated  into  the  waveguide  program.  A  complex  amplitude,  £,  end  a 
real  exponent,  <J>,  were  associated  with  each  complex  number  z,  i.e., 

z  =  £e*  .  (7.1) 


No  attempt  was  made  to  normalize  the  complex  amplitudes  £  in  XWVG.  The 

+3  “3 

complex  amplitudes  £  typically  have  a  magnitude  falling  between  10  and  10 
By  handling  the  complex  amplitude  and  real  exponent  separately,  the  very  large 
and  very  small  numbers  obtained  when  evaluating  the  modal  function  over  the 
search  region  of  the  complex  q^ -plane  are  easily  handled. 


If  Zj  =  £je^x  and  z ^  -  £ 2^ are  two  extended  complex  numbers,  their 
product  is  the  extended  complex  number 


Z  =  2l21  =  • 

(7.2) 

where 

t  =  CjC2 

(7.3) 

and 

♦  =  +  $2  • 

(7.3) 

If  >  $2»  the  sum  of  the  two  extended  complex  numbers 

extended  complex  number 

Zj  and  Z£  is  the 

z 


where 


t  +  42exp(*2  “  V 

and 


♦  =  • 

% 


(7.4) 


(7.5) 


(7.6) 
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the  complex  amplitude  and  the  real  exponent  for  the  sum  would  equal 
i2  +  ^expC^  -  <|>2) 


(7.7) 


8.  DESCRIPTION  OF  XWVG  PROGRAM  ELEMENTS 
This  section  describes  the  20  program  elements  comprising  XWVG  and  gives 
the  relationship  between  the  different  program  elements. 


MAIN 


Description:  MAIN  is  the  controlling  program  element  for  the  trilinear 
modified  refractivity  profile  tropospheric  propagation  program  XWVG.  Besides 
calling  the  appropriate  subroutines  to  determine  the  modal  eigenvalues  and 
evaluate  the  coherent  and  incoherent  mode  sums  for  the  field  strength,  MAIN 
also  performs  all  data  input  and  output,  sets  up  the  search  rectangles  for  the 
Shellman-Morfitt  root- finding  routine,  and  calculates  the  "constants"  needed 
by  other  program  elements. 

The  data  for  MAIN  is  read  in  from  logical  file  number  13,  the  read  file. 
Logical  file  number  13  is  assumed  to  have  one  data  item  per  record,  with  the 
data  items  in  the  following  order: 

MFILE  -  If  MFILE  =  0  calculate  eigenvalues.  If  MFILE  =  1  read 
eigenvalues  from  logical  file  number  12. 

MPOL  -  If  MPOL  =  0  horizontal  polarization.  If  MPOL  =  1  vertical 
polarization. 

FREQ  -  The  frequency,  in  MHz,  of  the  propagating  electromagnetic 
wave. 

ALPHA1  -  The  slope,  in  units  of  1/meter,  of  the  first  (lowest) 

layer  in  the  trilinear  model  of  the  troposphere.  The  a.'s 
dM.  1 

are  related  to  by  equation  (2.13).  ALPHA 1  must  be 

positive. 

ALPHA2  -  The  slope  of  the  second  (middle)  layer  in  the  trilinear 
model  of  the  troposphere.  ALPHA2  may  be  positive  or 
negative  but  may  not  be  zero. 


ALPHA3  -  The  slope  of  the  third  (top)  layer  in  the  trilinear  model 
of  the  troposphere.  ALPHA3  must  be  positive.  For  the 
standard  atmosphere  a  =  0.236  x  10  ^/m. 


Z2  -  The  height,  in  meters,  of  the  interface  between  the  first 

and  second  layers  of  the  trilinear  model  of  the 
troposphere.  The  ground  is  assumed  to  be  located  at 
z  =  0. 


Z3  -  The  height,  in  meters,  of  the  interface  between  the  second 

and  third  layers  of  the  trilinear  model  of  the 
troposphere.  Z3  must  be  greater  than  Z2. 
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ZREF  - 


REFM  - 

ETA  - 

TEMP  - 

SALT  - 

DELTA  - 

ALOSS  - 

RNGINT  - 

NRNG  - 

RNGSTP  - 

ZRINIT  - 

NZRCVR  - 


The  height,  in  meters,  at  which  the  value  of  the  modified 
refractivity ,  M(z) ,  is  specified.  ZREF  is  assumed  to  be 
in  the  first  layer,  i.e., 

0  <  ZREF  <  Z2 . 


The  value  of  the  modified  refractivity,  in  M-units,  at  the 
reference  height  ZREF. 

The  absorptivity  of  the  tropospheric  gases. 

The  temperature  of  the  seawater,  in  degrees  Celsius,  over 
the  propagation  path. 

The  salinity  of  the  seawater,  in  grams  of  salt  per 
kilogram  of  seawater,  over  the  propagation  path. 

The  root  mean  square  bump  height,  in  meters,  of  the  ocean 
surface  over  the  propagation  path. 

The  maximum  loss  rate,  in  dB/km,  of  the  modes  which  will 
be  found. 

The  initial  range  separation,  in  kilometers,  between  the 
transmitter  and  receiver. 

The  number  of  range  values  for  which  field  strength  values 
will  be  calculated. 

The  increment,  in  kilometers,  by  which  the  range  change*. 

The  initial  height,  in  meters,  of  the  receiver. 

The  number  of  receiver  heights  for  which  the  field 
strength  will  be  calculated. 
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ZRSTEP  -  The  increment,  in  meters,  by  which  the  receiver  height 
changes . 

ZXINIT  -  The  initial  height,  in  meters,  of  the  transmitter. 

NZXMTR  -  The  number  of  transmitter  heights  for  which  the  field 
strength  will  be  calculated. 

ZXSTEP  -  The  increment,  in  meters,  by  which  the  transmitter  height 
changes . 

If  the  modal  eigenvalues  for  a  particular  model  have  already  been 
calculated  and  are  stored  in  logical  file  number  12,  then  MFILE  can  be  set 
equal  to  one  and  the  modal  eigenvalues  will  not  be  calculated  again.  This  can 
save  considerable  computer  time  and  expense.  If  the  modal  eigenvalues  are  to 
be  calculated  then  set  MFILE  =  0.  After  the  modal  eigenvalues  are  calculated, 
MAIN  writes  their  value  in  logical  file  number  12  so  they  can  be  stored  for 
future  use.  MAIN  writes  the  output  of  the  trilinear  duct  tropospheric  program 
to  locial  file  number  11,  the  write  file. 

MAIN  evaluates  many  of  the  quantities  depending  only  upon  the  frequency, 
polarization,  and  duct  parameters  which  are  used  by  other  program  elements. 
These  quantities  are  passed  to  the  appropriate  subroutines  via  Common  Block 
areas . 


The  search  rectangles  used  by  the  Shellman-Morfitt  root-finding  routine 
are  set  up  by  MAIN.  The  bottom  of  the  search  rectangle  is 


=  TB0T  =  0  0  • 

while  the  top  of  the  search  rectangle  is  given  by  [2] 


UmCqipitop  =  TTOP  =  2 


1  x  10  JA 
20k  log1Q 


loss  Q  /k  V 
(e)'  +  2  \aj 


In  this  equation  for  determining  the  top  of  the  search  rectangle,  Alosg  is  the 

U) 

maximum  attenuation  rate  in  dB/km  for  the  modes  to  be  found,  k  =  -  is  the  free 
space  wave  number,  rj  is  the  tropospheric  absorptivity,  and  Of^  is  the  slope  of 
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the  duct  in  the  bottom  layer.  The  left  and  right  edges  of  the  initial  search 
rectangle  are  located  at 

[Re(qn)}left  =  TLEFT  =  TLOLD  =  0.0 

and 

[Re(qn)]right  =  TRIGHT  =  TROLD  =  2.0  . 

Because  of  the  discontinuity  in  and  a^on8  the  imaginary 

q^j-axis  introduced  by  our  implementation  of  surface  roughness,  it  is 
necessary  for  the  initial  search  rectangle  to  have  its  left  edge  on  the 
imaginary  axis.  For  further  details  see  the  description  of  subroutine  KHATX. 
The  location  of  the  right  edge  of  the  initial  search  rectangle  can  be  changed 
by  changing  the  value  of  TROLD. 

The  Shellman-Morfitt  root- finding  routine  is  used  to  find  the  zeros  of 
the  modal  function  in  each  search  rectangle.  In  order  to  find  the  zeros  along 
the  real  axis,  an  offset  of  0.003  is  introduced  in  subroutines  FCTVLX  and 
FDFDTX.  This  offset  in  the  modal  eigenvalues  is  corrected  in  MAIN  by  the 
statement 

EIGEN (LK)  =  EIGEN(LK)  -  I*  0.003. 

See  the  description  of  subroutine  FCTVLX  for  more  details. 

After  using  the  Shellman-Morfitt  root-finding  routine  to  search  the 
initial  search  rectangle  for  modal  eigenvalues,  MAIN  forms  a  new  search 
rectangle  to  the  left  of  the  original  by  the  statements 

TLEFT  =  TLOLD  -  TLSTEP 
TRIGHT  =  TLOLD 
TLOLD  =  TLEFT 

The  width  of  the  search  rectangles  formed  to  the  left  of  the  original  can  be 
varied  by  changing  TLSTEP.  If  no  zeros  are  found  in  NLEFT  consecutive  search 
rectangles,  the  search  for  modal  eigenvalues  to  the  left  of  the  initial  search 
rectangle  is  stopped.  Next,  MAIN  starts  forming  search  rectangles  to  the  right 
of  the  initial  search  rectangle  by  using  the  statements 
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UNCLASSIFIED 


TLEFT  =  TROLD 


TRIGHT  =  TROLD  +  TRSTEP 
TROLD  =  TRIGHT. 

The  width  of  the  search  rectangles  formed  to  the  right  of  the  original  can  be 
varied  by  changing  TRSTEP.  If  no  zeros  are  found  in  NRIGHT  consecutive  search 
rectangles,  the  search  for  modal  eigenvalues  to  the  right  of  the  initial 
search  rectangle  is  stopped. 

The  complete  set  of  modes  found  by  using  the  Shellman-Morf itt  root-finding 
routine  are  stored  in  the  array  ZEROS.  This  array  can  hold  up  to  NRZ 
elements.  The  value  of  NRZ  can  be  changed  by  changing  the  PARAMETER  statement 
in  MAIN.  If  more  than  NRZ  modes  are  found, MAIN  will  write  a  message 
indicating  the  search  rectangles  where  the  total  number  of  modes  exceeded  NRZ. 
Only  the  first  NRZ  modes  found  are  stored  in  ZEROS.  After  all  the  modes  have 
been  found,  the  modes  stored  in  the  array  ZEROS  are  arranged  by  order  of 
increasing  real  part, and  any  duplicate  modes,  i.e.,  modes  within  a  distance 
TOL  =  0.0001  of  each  other,  are  eliminated.  These  modes  are  then  used  by 
subroutine  MODSUM  to  evaluate  the  field  strength  in  dB  relative  to  the  free 
space  value. 


Calling  Program  Element :  None . 

Program  Elements  Called:  CASIN,  DHORIZ,  FZEROX,  MODSUM. 

Common  Block  Areas:  COMONE,  COMTWO,  COMTHR,  COMFOR,  COMF1 V,  COMSIX,  COMSEV, 
COMEIG,  COMNIN. 
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CADD 


Description:  Subroutine  CADD  adds  two  extended  complex  numbers  of  the  form 

2  =  , 

where  4  is  a  complex  amplitude  and  $  a  real  exponent.  If  and  z ^  are  two 
extended  complex  numbers,  their  sum  is 


where,  assuming 

C  =  Si  +  S2exP($2  "  V 

and 

♦  =  4>r 

The  cosiplex  amplitude  4  is  not  normalized  in  any  way. 

Call  Statement:  Subroutine  CADD  is  called  by  the  statement 


CALL  CADD  (ZA,  ZE,  XA,  XE,  YA,  YE). 


The  input  variables  of  subroutine  CADD  are: 

XA  -  The  complex  amplitude  of  the  extended  complex  number  x. 

XE  -  The  real  exponent  of  the  extended  complex  number  x. 

YA  -  The  complex  amplitude  of  the  extended  complex  number  y. 

YE  -  The  real  exponent  of  the  extended  complex  number  y. 


The  output  variables  of  subroutine  CADD  are: 

ZA  -  The  complex  amplitude  of  the  extended  complex  number 
z  =  x  +  y. 
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ZE 


The  real  exponent  of  the  extended  complex  number 
z  =  x  +  y. 


Calling  Program  Elements:  HTGAIN,  FDFDTX,  FCTVLX,  KHATX, 


Program  Elements  Called:  None. 


MODSUM. 


Common  Block  Areas:  None. 


Description:  Subroutine  ADDX  adds  two  extended  real  numbers  of  the  form 


2  =  » 

where  £  is  a  real  amplitude  and  <t>  a  real  exponent.  If  z^  and  are  two 
extended  real  numbers,  their  sum  is 


where,  assuming 

1  =  4j  +  £2exp(^2  -  ♦j) 

and 

*  =  *1  * 

The  real  amplitude  £  is  not  normalized  in  any  way. 

Call  Statement:  Subroutine  ADDX  is  called  by  the  statement 

CALL  ADDX  (ZA,  ZE,  XA,  XE,  YA,  YE). 

The  input  variables  of  subroutine  ADDX  are: 

XA  -  The  real  amplitude  of  the  extended  real  number  x. 

XE  *  The  real  exponent  of  the  extended  real  number  x. 

YA  -  The  real  amplitude  of  the  extended  real  number  y. 

YE  -  The  real  exponent  of  the  extended  real  number  y. 

The  output  variables  of  subroutine  ADDX  are: 

ZA  -  The  real  amplitude  of  the  extended  real  number  z  =  x  +  y. 


4  »*ju  r^- 1-^4  t  ■■Lf*!. 


ZE  -  The  real  exponent  of  the  extended  real  number  z  =  x  +  y. 
Calling  Program  Element:  MODSUM. 

Program  Elements  Called:  None. 

Common  Block  Areas:  None. 
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Description:  Subroutine  HNKLX  evaluates  the  modified  Hankel  functions  of 
order  one-third,  h^(z)  and  h^Cz),  and  their  derivatives  in  extended  complex 
arithmetic. 


Call  Statement:  Subroutine  HNKLX  is  called  by  the  statement 

CALL  HNKLX  (Z,  H1A,  HIE,  H2A,  H2E,  DH1A,  DH1E,  DH2A,  DH2E). 

The  input  variable  of  subroutine  HNKLX  is : 

Z  -  The  location  in  the  complex  plane  where  the  modified  Hankel 
functions  of  order  one-third  and  their  derivatives  are  to  be 
evaluated. 


The  output  variables  of  subroutine  HNKLX  are: 


H1A  -  The 
HIE  -  The 
H2A  -  The 
H2E  -  The 
DH1A  -  The 
DH1E  -  The 
DH2A  -  The 
DH2E  -  The 


complex  amplitude  of  hjCz)  in  extended  complex  arithmetic 

real  exponent  of  hj(z)  in  extended  complex  arithmetic. 

complex  amplitude  of  h2(z). 

real  exponent  of  h2(z). 

complex  amplitude  of  h^(z). 

real  exponent  of  hj(z). 

complex  amplitude  of  h^Cz). 

real  exponent  of  h^Cz). 


Calling  Program  Elements:  HTGAIN,  FDFDTX,  FCTVLX. 


Program  Elements  Called :  None . 


Common  Block  Areas:  None. 


KHNKLX 


1 


R 


5 


1 

ri 

d 
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Description:  Subroutine  KHNKLX  evaluates  the  modified  Hankel  functions  kj(z) 
and  k^(z)  and  their  derivatives  in  extended  complex  arithmetic. 

Call  Statement:  Subroutine  KHNKLX  is  called  by  the  statement 

CALL  KHNKLX  (Z,  K1A,  K1E,  K2A,  K2E,  DK1A,  DK1E,  DK2A,  DK2E) . 

The  input  variable  of  subroutine  KHNKLX  is: 

Z  -  The  location  in  the  complex  plane  where  the  modified  Hankel 
functions  and  their  derivatives  are  to  be  evaluated. 


The  output  variables  of  subroutine  KHNKLX  are: 


K1A 

K1E 

K2A 

K2E 

DK1A 

DK1E 

DK2A 

DK2E 


The  complex  amplitude  of  k^(z)  in  extended  complex  arithmetic. 
The  real  exponent  of  k^z)  in  extended  complex  arithmetic. 

The  complex  amplitude  of  k2(z). 

The  real  exponent  of  k^(z). 

The  complex  amplitude  of  k^(z). 

The  real  exponent  of  k^(z). 

The  complex  amplitude  of  k^Cz). 

The  real  exponent  of  k^Cz). 


Calling  Program  Elements:  HTGAIN,  FDFDTX,  FCTVLX. 


Program  Elements  Called:  None. 


Common  Block  Areas:  None. 
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■%  V 


A 


KHATX 


Description:  Subroutine  KHATX  evaluates  the  modified  Hankel  function 
combinations  ^(q  j)  and  an<*  their  derivatives  in  extended  complex 

arithmetic.  For  the  surface  roughness  model  used  in  this  program,  the  rms 
surface  bump  height  6  was  always  taken  to  be  zero  when  Re(q^)  <  0  since  modes 
with  Re(qjj)  <  0  correspond  to  well-trapped  modes  and  should  be  unaffected  by 
the  surface.  This  creates  a  discontinuity  in  and  ^2^11^  an<*  hence, 

in  the  modal  function,  at  Re(q^)  =  0  when  6^0.  In  order  to  use  the 
Shellman-Morfitt  root-finding  routine  with  this  discontinuity,  when  ReCq^)  = 

0,  subroutine  KHATX  has  to  know  whether  the  current  search  rectangle  lies  to  the 
left  or  right  of  the  imaginary  q^  axis  and  to  evaluate  ^(q^)  and  so 

that  they  will  be  continuous  over  the  entire  search  rectangle.  The 
information  needed  to  do  this  is  passed  to  KHATX  from  MAIN  in  the  form  of  the 
flag  INTCHK.  When  the  initial  search  rectangle  is  set  up, it  is  located  at  0< 
Re(qjj)  <  TROLD  and  INTCHK  =  0.  For  search  rectangles  to  the  left  of  the 
initial  search  rectangle,  that  is  for  ReCq^)  <  0,  INTCHK  =  1.  When  ReCq^)  = 

0,  KHATX  tests  INTCHK  to  determine  whether  the  search  rectangle  is  to  the  left 
or  right  of  the  imaginary  q^  axis  and  evaluates  the  proper  "branch"  of 

fcj(qn)  and  *2^qll^ 

Call  Statement:  Subroutine  KHATX  is  called  by  the  statement 

CALL  KHATX  (Qll,  KHA1 ,  KHE1 ,  KHA2 ,  KHE2 ,  DKHA1 ,  DKHE1,  DKHA2,  DKHE2) . 

The  input  variable  of  subroutine  KHATX  is: 

Qll  -  The  location  in  the  complex  q^-plane  where  (<1^ )  and 
1^2 ^qi i )  an<*  their  derivatives  are  to  be  evaluated. 

The  output  variables  of  subroutine  KHATX  are: 

KHA1  -  The  complex  amplitude  of  ^(q^)  in  extended  complex 
arithmetic. 

KHE1  -  The  real  exponent  of  ^(q^)  in  extended  complex 
arithmetic. 


KHA2  -  The  complex  amplitude  of 
KHE2  -  The  real  exponent  of  ^(q^). 
DKHA1  -  The  complex  amplitude  of 
DKHE1  -  The  real  exponent  of  Rj’(qjj). 
DKHA2  -  The  complex  amplitude  of 
DKHE2  -  The  real  exponent  of 


Calling  Program  Elements:  HTGAIN,  FDFDTX,  FCTVLX. 


Program  Elements  Called:  KHNKLX,  CADD,  CTANH,  CSECH2. 


Common  Block  Areas:  COMTWO,  COMTHR,  COMFOR,  COMFIV,  COMSIX,  COMSEV,  COMEIG, 
COMNIN. 


CTANH 


Description:  The  complex  function  subroutine  CTANH  evaluates  the  complex 
hyperbolic  tangent  of  the  complex  number  z.  If 

|Re(z)|  >  — - —  or  |Im(z)|  >  — - —  » 

10^2  10</2 

then  tanh(z)  is  evaluated  by  using 
z  -2 

tanh(z)  =  - - - —  . 

Z  "  z 

e  +  e 

If 

|Re(z)|  <  — - —  and  |Im(z)|  <  — - —  , 

10./2  10^2 

then  tanh(z)  is  evaluated  by  using  the  first  five  terms  of  the  Taylor  series 
expansion 

tanh(z)  =  z  -  |z3  +  f^z5  -  i^z7  +  ^ffez9  -  -  . 

Calling  Statement:  The  complex  function  subroutine  CTANH  is  called  by 
CTANH(Z) . 

The  input  variable  of  function  subroutine  CTANH  is: 


Z  -  A  complex  number. 

The  output  variable  of  function  subroutine  CTANH  is: 

CTANH  -  The  hyperbolic  tangent  of  the  complex  number  z. 
Calling  Program  Element:  KHATX. 

Program  Elements  Called:  None. 

Common  Block  Areas:  None. 


CSECH2 


Description:  The  complex  function  subroutine  CSECH2  evaluates  the  square  of 
the  hyperbolic  secant  of  the  complex  variable  z  by  using 


seen  (z)  = 


2z 


+  2  +  e 


-2z 


Calling  Statement:  The  complex  function  subroutine  CSECH2  is  called  by 


CSECH2(Z). 


The  input  variable  of  function  subroutine  CSECH2  is: 

Z  -  A  complex  number. 

The  output  variable  of  function  subroutine  CSECH2  is: 

CSECH2  -  The  square  of  the  hyperbolic  secant  of  the  complex 
variable  z. 


Calling  Program  Element:  KHATX. 
Program  Elements  Called:  None. 

Common  Block  Areas:  None. 


FCTVLX 


Description;  Subroutine  FCTVLX  evaluates  the  modal  function  ||A(q  )||  in 

extended  complex  arithmetic.  When  using  the  Shellman-Morf itt  root-finding 
routine  to  locate  the  zeros  of  a  complex  function,  it  is  assumed  that  these 
zeros  do  not  fall  on  a  mesh  line.  Since  the  imaginary  part  of  some  of  the 
zeros  of  ||A(q^^)||  are  numerically  indistinguishable  from  zero,  the  real  q^ 
axis  should  not  be  a  mesh  line.  However,  because  of  the  way  the 
Shellman-Morf itt  root-finding  routine  sets  up  mesh  squares,  if  the  real  axis 
passes  through  a  search  rectangle, the  real  axis  will  always  be  a  mesh  line. 

One  way  to  avoid  problems  caused  by  this  is  to  find  the  zeros  of  the  functions 
||A(tn)||  where 


hi  =  qn  '  - 

The  shift  Aq  is  chosen  to  satisfy 

6„,  <  Aq  <  — 6  , 

T  4  2n  m  * 


max 


(8.1) 


(8.2) 


where  is  the  tolerance  to  which  zeros  are  located,  6  is  the  initial  mesh 
T  m 

size,  and  n  is  the  maximum  number  of  times  that  subroutine  FZEROX  will 
max 

reduce  the  mesh  size  by  a  factor  of  two.  In  XWVG  where  6^  =  0.0001,  6^  = 

0.04,  and  n  =  2,  a  value  Aq  =  0.003  is  chosen.  With  Aq  chosen  to  satisfy 
max 

(8.2),  even  if  subroutine  FZEROX  reduces  the  mesh  size  by  a  factor  of  two  n 
times,  the  values  of  t^  corresponding  to  Im(q11)  =  0  will  still  not  lie  on  a 
mesh  line.  From  equation  (8.1)  it  is  seen  that  the  zeros  of  ||A(q^)||  that 
were  along  the  line  Im(q^)  =  0  are  now  shifted  to  the  line  Im(q^)  =  +  iAq. 
Thus,  the  zeros  of  ||A(t^)||  are  related  to  the  zeros  of  ||A(q^)||  by 


qn  =  tn  -  iAq  .  (8.3) 

The  shift  to  the  new  variable  t^  occurs  inside  subroutine  FCTVLX  as  well  as 
inside  subroutine  FDFDTX.  The  shift  back  to  q^,  equation  (8.3),  occurs  in 
MAIN.  Subroutine  EXCFAC,  which  uses  subroutine  FDFDTX,  also  has  a  statement 
that  compensates  for  the  shift,  Aq. 


Calling  Statement:  Subroutine  FCTVLX  is  called  by  the  statement 


CALL  FCTVLX  (Qll,  DETA,  DETE). 

The  input  variable  of  subroutine  FCTVLX  is: 

Qll  -  The  location  in  the  complex  q^-plane  where  the  modal 
function  is  to  be  evaluated. 

The  output  variables  of  subroutine  FCTVLX  are: 

DETA  -  The  complex  amplitude  of  the  modal  function  in  extended 
complex  arithmetic. 

DETE  -  The  real  exponent  of  the  modal  function  in  extended 
complex  arithmetic. 

Calling  Program  Element:  FINDFX. 

Program  Elements  Called:  HNKLX,  KHNKLX,  KHATX,  CADD. 

Common  Block  Areas:  COMONE,  COMTWO. 


FDFDTX 


Description:  Subroutine  FDFDTX  evaluates  the  modal  function  ||A(q^^)||  and 
its  derivative 

^7‘"4Un)M) 


in  extended  complex  arithmetic.  As  in  subroutine  FCTVLX,  the  value  of  q.^  is 
shifted  inside  the  subroutine  to 

hi =  qn  • i4q  - 

where  Aq  =  0.003.  This  shift  by  Aq  is  compensated  for  in  MAIN  when  FDFDTX  is 
used  by  the  Shellman-Morfitt  root-finding  routine.  When  FDFDTX  is  used  in  the 
evaluation  of  the  modal  excitation  factors,  this  shift  by  Aq  is  compensated 
for  in  subroutine  EXCFAC. 

Calling  Statement:  Subroutine  FDFDTX  is  called  by  the  statement 
CALL  FDFDTX  (Qll,  DETA,  DETE,  DETPA,  DETPE) . 

The  input  variable  of  subroutine  FDFDTX  is: 


Qll  -  The  location  in  the  complex  q^-plane  where  the  modal 
function  and  its  derivative  are  to  be  evaluated. 


The  output  variables  of  subroutine  FDFDTX  are: 

DETA  -  The  complex  amplitude  of  the  modal  function  in  extended 
complex  arithmetic. 

DETE  -  The  real  exponent  of  the  modal  function  in  extended 
complex  arithmetic. 


DETPA  -  The  complex  amplitude  of  the  derivative  of  the  modal 
function. 
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DETPE  -  The  real  exponent  of  the  derivative  of  the  modal  function. 


Calling  Program  Elements 
Program  Elements  Called: 


NOMSHX ,  EXCFAC. 
HNKLX,  KHNKLX,  KHATX, 


CADD. 


Common  Block  Areas:  COMONE,  COMTWO. 


FZEROX 


Description:  Subroutine  FZEROX  is  the  main  subroutine  of  the  Shellman-Morf itt 
root-finding  routine  modified  for  extended  complex  arithmetic  and  the 
trilinear  tropospheric  duct  model.  The  other  subroutines  comprising  the 
Shellman-Morf itt  root-finding  routine  are  subroutines  QUAD,  NOMSHX,  and 
FINDFX.  Subroutine  FZEROX  divides  a  specified  rectangular  region  of  the 
complex  plane  into  mesh  squares  and  determines  approximate  values  for  the 
complex  zeros  of  an  analytic  function  f(z).  These  approximate  values  for  the 
zeros  of  f(z)  are  improved  by  subroutine  NOMSHX  by  using  Newton-Raphson 
iteration.  The  function  f(z)  is  assumed  to  have  no  poles  or  branch  cuts  in 
the  rectangular  region  of  the  complex  plane  being  searched.  The  zeros  of  f(z) 
in  the  search  region  are  assumed  to  be  simple  zeros.  Other  assumptions  made 
are  that  the  zeros  of  f(z)  do  not  fall  on  the  mesh  lines  and  that  the  lines 
Im[f(z)]  =  0  and  Re(f(z)]  =  0  do  not  coincide  with  mesh  lines.  The  maximum 
number  of  crossings  of  Im[f(z)]  =  0  with  any  one  edge  of  the  search  rectangle 
that  is  currently  allowed  by  FZEROX  is  50.  This  value  can  be  changed  by 
changing  the  dimensions  of  KEDGE1,  KEDGE2,  KEDGE3,  and  KEDGE4 . 

Because  of  the  discontinuity  of  the  modal  function  along  the  imaginary 
axis  that  is  introduced  by  the  discontinuity  in  the  surface  roughness  formula, 
special  care  has  to  be  taken  when  finding  the  complex  roots  of  the  modal 
function  in  a  search  rectangle  that  has  TLEFT  =  0.0  or  TRIGHT  =  0.0.  Since 
FZEROX  will  normally  extend  the  search  rectangle  by  one  mesh  square  in  all 
directions,  this  expansion  to  the  left  or  right  has  to  be  suppressed  when 
TLEFT  =  0.0  or  TRIGHT  =  0.0.  This  is  done  with  the  statements 

IF(TLEFT.EQ.O.O)  JLT  =  0 


and 


IF (TRIGHT . EQ . 0 . 0 )  JRT  =  0 

in  subroutine  FZEROX.  When  the  modal  function  ||A(q^)||  is  evaluated  along 

the  imaginary  axis,  the  value  of  q. .  is  offset  by  an  amount  SHIFT  =  ±  1.0  x 

-9 

10  in  subroutine  FINDFX.  The  plus  sign  is  taken  if  the  search  rectangle 


lies  to  the  right  of  the  imaginary  axis  and  the  minus  sign  is  taken  if  the 
search  rectangle  lies  to  the  left  of  the  imaginary  axis. 

Calling  Statement;  Subroutine  FZEROX  is  called  by  the  statement 

CALL  FZEROX  (TLEFT,  TRIGHT,  TBOT,  TTOP,  TMSHO,  TOL,  MPRINT,  ZEROS,  NRZ) . 

The  input  variables  of  subroutine  FZEROX  are: 

TLEFT  -  The  value  of  the  real  part  of  z  at  the  left  edge  of  the 
search  rectangle. 

TRIGHT  -  The  value  of  the  real  part  of  z  at  the  right  edge  of  the 
search  rectangle. 

TBOT  -  The  value  of  the  imaginary  part  of  z  at  the  bottom  edge  of 
the  search  rectangle. 

TTOP  -  The  value  of  the  imaginary  part  of  z  at  the  top  edge  of 
the  search  rectangle. 

TMSHO  -  The  initial  size  of  the  mesh  squares  used  to  divide  the 

search  rectangle.  TMSHO  should  be  small  enough  so  that  the 
variation  of  Im[f(z)}  and  Re[f(z)]  along  the  mesh  square 
edges  is  approximately  linear.  Subroutine  FZEROX  assumes 
that  this  is  true.  The  smaller  TMSHO  is,  the  longer  the 
program  running  time.  Under  some  circumstances  FZEROX 
will  automatically  reduce  the  mesh  size  by  a  factor  of  2  a 
total  of  MAXNT  =  2  times.  If  FZEROX  still  experiences 
difficulties  after  these  reductions  in  mesh  size, an  error 
message  will  be  output  and  the  program  will  stop.  FZEROX 
allows  a  maximum  number,  MAXNSQ,  of  mesh  squares  to  lie  on 
any  one  phase  curve  Im[f(z)]  =  0  in  the  search  rectangle. 

If  this  number  is  exceeded, an  error  message  is  output  and 
the  program  stops.  MAXNSQ  is  currently  set  at  four  times 
the  number  of  mesh  squares  along  the  longest  side  of  the 
search  rectangle. 


TOL  -  The  tolerance  to  which  zeros  are  located.  Zeros  located 
closer  together  than  TOL  cannot  be  distinguished. 

MPRINT  -  A  flag  for  debugging  output.  If  MPRINT  =  0, no  debugging 
printout  is  given;  while  if  MPRINT  =  1, debugging  printout 
is  given.  A  value  of  MPRINT  =  0  is  recommended  except 
when  absolutely  necessary,  because  of  the  large  amount  of 
printout  produced. 

The  output  variables  of  subroutine  FZEROX  are: 

ZEROS  -  An  array  containing  the  complex  zeros  of  f(z)  in  the 

specified  rectangular  region  of  the  complex  plane.  The 
array  ZEROS  assumes  the  dimensions  specified  in  MAIN. 

NRZ  -  The  number  of  complex  zeros  of  f(z)  in  the  specified 
rectangular  region  of  the  complex  plane. 

Calling  Program  Element:  MAIN. 

Program  Elements  Called:  QUAD,  NOMSHX,  FINDFX. 


Common  Block  Areas :  NEWMSH ,  TMCCOM . 


QUAD 


Description:  Subroutine  QUAD  is  an  auxiliary  subroutine  in  the  Shellman- 
Morfitt  root-finding  routine.  The  other  subroutines  comprising  the  Shellman- 
Horfitt  root-finding  routine  are  FZEROX,  NOMSHX,  and  FINDFX.  Subroutine  QUAD 
finds  the  real  roots  of  a  quadratic  equation  of  the  form 

ax^  +  2bx  +  c  =  0. 

Calling  Statement:  Subroutine  QUAD  is  called  by  the  statement 

CALL  QUAD  (A,  B,  C,  SOL,  NRSOL). 

The  input  variables  of  subroutine  QUAD  are: 

2 

A  -  The  coefficient  of  x  in  the  quadratic  equation. 

B  -  The  coefficient  of  2x  in  the  quadratic  equation. 

C  -  The  constant  term  in  the  quadratic  equation. 

The  output  variables  of  subroutine  QUAD  are: 

SOL  -  An  array  containing  the  real  roots  of  the  quadratic 
equation. 

NRSOL  -  The  number  of  real  roots  of  the  quadratic  equation  found. 

A  value  of  NRSOL  =  1  results  when  the  quadratic  equation 
approaches  linearity. 

Calling  Program  Element :  FZEROX . 

Program  Elements  Called:  None. 

Common  Block  Areas:  None. 


Ill 


NOMSHX 


Description:  Subroutine  NOMSHX  is  an  auxiliary  subroutine  of  the 
Shellman-Morfitt  root-finding  routine  modified  for  extended  complex 
arithmetic.  The  other  subroutines  that  comprise  the  Shellman-Morfitt  root¬ 
finding  routine  are  FZEROX,  FINDFX,  and  QUAD.  Subroutine  NOMSHX  takes  the 
approximate  locations  of  the  complex  zeros  of  f(z)  provided  by  subroutine 
FZEROX  and  improves  them  by  using  Newton-Raphson  iteration. 

Calling  Statement:  Subroutine  NOMSHX  is  called  by  the  statement 

CALL  NOMSHX  (TMESH,  TOL,  MPRINT,  ZEROS,  NRZ) . 

The  input  variables  of  subroutine  NOMSHX  are: 

TMESH  -  The  size  of  the  mesh  squares  used  to  divide  the  search 
rectangle. 

TOL  -  The  tolerance  to  which  zeros  are  to  be  located.  Zeros 
located  closer  than  TOL  cannot  be  distinguished. 

MPRINT  -  A  flag  for  debugging  output.  If  MPRINT  =  0, no  debugging 
printout  is  given;  while  if  MPRINT  =  1, debugging  printout 
is  given. 

ZEROS  -  An  array  containing  the  approximate  location  of  the 
complex  zeros  of  f(z). 

NRZ  -  The  number  of  complex  zeros  stored  in  array  ZEROS. 

The  output  variable  of  subroutine  NOMSHX  is: 

ZEROS  -  An  array  containing  the  Newton-Raphson  iterated  values  for 
the  complex  zeros  of  f(z).  ZEROS  is  used  for  both  input 
and  output. 
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FINDFX 


Description:  Subroutine  FINDFX  is  an  auxiliary  subroutine  of  the 

Shellman-Morfitt  root-finding  routine  modified  for  extended  complex  arithmetic 

and  the  trilinear  tropospheric  duct  propagation  model.  The  other  subroutines 

that  comprise  the  Shellman-Morfitt  root-finding  routine  are  FZEROX,  QUAD,  and 

NOMSHX.  Subroutine  FINDFX  takes  the  coordinates  of  the  mesh  square  corners 

and  evaluates  the  modal  function  ||A(q^)||  there.  The  modal  function  is 

evaluated  in  extended  complex  arithmetic.  Because  of  the  discontinuity  of  the 

modal  function  along  the  imaginary  q^  axis  introduced  by  the  surface 

roughness  formulation,  special  care  has  to  be  taken  when  finding  the  complex 

zeros  of  ||A(q^  )||  in  a  search  rectangle  that  has  TLEFT  =  0.0  or  TRIGHT  = 

0.0.  The  Shellman-Morfitt  root-finding  routine  requires  that  ||A(q^)||  have 

no  poles,  branch  cuts,  or  other  discontinuities  in  the  search  rectangle.  In 

order  to  ensure  that  this  condition  is  met  when  the  search  rectangle  has  TLEFT 

_q 

=  0.0  or  TRIGHT  =  0.0, a  small  offset  value  OFFSET  =  1.0  *  10  is  introduced. 
If  TLEFT  =  0.0, then  instead  of  evaluating  ||A(q^^)||  along  Re(qjj)  =  0, 
||A(qil)||  is  evaluated  along  Re(qn)  =  +  OFFSET.  If  TRIGHT  =  0.0,  then 
instead  of  evaluating  )|A(q1])||  along  Refqjj)  =  0,  1 1 A(q1  )  I  I  is  evaluated  at 
Re(qn)  =  -  OFFSET. 

Calling  Statement:  Subroutine  FINDFX  is  called  by  the  statement 

CALL  FINDFX  (JR,  JI,  F,  FE,  TLEFT,  TRIGHT). 

The  input  variables  of  subroutine  FINDFX  are: 

JR  -  The  real  part  of  the  mesh  square  corner  coordinates  in 

mesh  units . 

JI  -  The  imaginary  part  of  the  mesh  square  corner  coordinates 

in  mesh  units . 

TLEFT  -  The  value  of  the  real  part  of  q^  at  the  left  edge  of  the 
search  rectangle. 


TRIGHT  -  The  value  of  the  real  part  of  at  the  right  edge  of  the 
search  rectangle. 

The  output  variables  of  subroutine  FINDFX  are: 

F  -  The  complex  amplitude  of  the  modal  function  in  extended 

complex  arithmetic. 

FE  -  The  real  exponent  of  the  modal  function  in  extended 

complex  arithmetic. 

Calling  Program  Element:  FZEROX. 

Program  Elements  Called:  FCTVLX. 


Common  Block  Areas:  TMCCOM. 


EXCFAC 


Description:  Subroutine  EXCFAC  calculates  the  modal  excitation  factor  . 

given  by  equation  (2.104)  in  extended  complex  arithmetic.  Because  of  the 

shift  in  by  the  amount  -iAq  =  -  0.003i  built  into  subroutine  FDFDTX,  '-J 

before  EXCFAC  calls  FDFDTX  it  shifts  q^  by  the  amount  +  i&q  =  +  0.003i.  This 

exactly  compensates  for  the  shift  inside  FDFDTX. 

Calling  Statestent:  Subroutine  EXCFAC  is  called  by  the  statement 

♦ 

CALL  EXCFAC  (XFAC,  XFACE,  Qll). 

/•j 

*  ~i 

The  input  variable  of  subroutine  EXCFAC  is: 

Qll  -  The  BK>dal  eigenvalue  for  which  the  excitation  factor  is  to 

be  evaluated.  '.J 

'  * 

The  output  variables  of  subroutine  EXCFAC  are:  ^ 

4 

XFAC  -  The  complex  amplitude  of  the  excitation  factor  in  extended 

complex  arithmetic.  -• 

XFACE  -  The  real  exponent  of  the  excitation  factor  in  extended  ^ 

complex  arithmetic. 

*  ^ 

Calling  Program  Element:  MODSUM. 

Program  Elements  Called:  FDFDTX. 


Common  Block  Areas:  C0MTW0,  COMTHR. 


HTGAIN 


Description;  Subroutine  HTGAIN  calculates  the  modal  height-gain  functions 
E(n,  z^,  Z.J.)  corresponding  to  the  n-th  modal  eigenvalue  q^  for  the  trilinear 
tropospheric  duct  propagation  model.  The  height-gain  functions  are  given  by 
equations  (2 . 150-2 . 166) . 

Calling  Statement:  Subroutine  HTGAIN  is  called  by  the  statement 
CALL  HTGAIN  (ENZA ,  ENZE,  Qll,  ZRCVR,  ZXMTR) . 


The  input  variables  of  subroutine  HTGAIN  are: 


Qll  -  The  modal  eigenvalue  for  which  the  height-gain  function  is 
to  be  calculated. 

ZRCVR  -  The  height  in  meters  of  the  receiver  above  ground  level. 

ZXMTR  -  The  height  in  meters  of  the  transmitter  above  ground 

level . 


The  output  variables  of  subroutine  HTGAIN  are: 

ENZA  -  The  complex  amplitude  of  the  height-gain  function  in 
extended  complex  arithmetic. 

ENZE  -  The  real  exponent  of  the  height-gain  function  in  extended 
complex  arithmetic. 

Calling  Program  Element:  MODSUM. 

Program  Elements  Called:  HNKLX,  KHNKLX,  KHATX,  CADD. 

Common  Block  Areas:  COMONE,  COMTWO,  COMTHR. 
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MODSUM 


Description:  Subroutine  MODSUM  calculates  the  coherent  and  incoherent  mode 
sum  field  strength  values  in  dB  relative  to  the  free  space  value.  These  field 
strength  values  are  calculated  by  using  equations  (2.108)  and  (2.109). 

Calling  Statement:  Subroutine  MODSUM  is  called  by  the  statement 

CALL  MODSUM  (ECMS,  EIMS,  RNG,  ZRCVR,  ZXMTR,  ZEROS,  NRZ,  NRMODE ) . 

The  input  variables  of  subroutine  MODSUM  are: 

RNG  -  The  range  in  kilometers  at  which  the  field  strength  is  to 
be  evaluated. 

ZRCVR  -  The  height  in  meters  of  the  receiver. 

ZXMTR  -  The  height  in  meters  of  the  transmitter. 

ZEROS  -  An  array  containing  the  complex  modal  eigenvalues  q^. 

NRZ  -  The  dimension  of  the  complex  array  ZEROS. 

NRMODE  -  The  number  of  modal  eigenvalues  contained  in  array  ZEROS. 

The  output  variables  of  subroutine  MODSUM  are: 

ECMS  -  The  coherent  mode  sum  field  strength  value  in  dB  relative 
to  the  free  space  value. 

EIMS  -  The  incoherent  mode  sum  field  strength  value  in  dB 
relative  to  the  free  space  value. 

Calling  Program  Element:  MAIN. 

Program  Elements  Called:  EXCFAC,  HTGAIN,  CADD,  ADDX. 

Common  Block  Areas:  C0MTW0,  COMTHR. 
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SEAH20 


Description:  Subroutine  SEAH20  evaluates  the  effective  relative  dielectric 
constant  and  the  effective  conductivity  a  of  seawater  as  a  function  of 
temperature ,  salinity,  and  frequency.  The  complex  refractive  index  of 
seawater  is  then  given  by 


n2  =  e  -  i 


2nfe 


where  f  is  the  frequency  and  is  the  permittivity  of  free  space.  The  model 
used  to  evaluate  and  a  is  from  the  paper  by  Klein  and  Swift  [24].  There  is 
a  discontinuity  in  the  values  of  and  a  calculated  by  this  model  as  the 
salinity  goes  to  zero. 


Calling  Statement:  Subroutine  SEAH20  is  called  by  the  statement 


CALL  SEAH20  (SIGEFF,  EPSEFF,  T,  S,  FREQ). 


The  input  variables  of  subroutine  SEAH20  are: 

T  -  The  temperature  of  the  seawater  in  degrees  Celsius.  The 

temperature  is  assumed  to  be  in  the  interval  -2°C  to 
+40° C. 

S  -  The  salinity  of  the  seawater  in  grams  of  salt  per  kilogram 

of  seawater.  The  salinity  is  assumed  to  be  in  the 
interval  0  to  40  g  salt/kg  seawater. 

FREQ  -  The  frequency  in  hertz.  The  frequency  is  assumed  to  be  in 
the  range  0  to  300  GHz. 


The  output  variables  of  subroutine  SEAH20  are: 

SIGEFF  -  The  effective  conductivity  of  the  seawater  in  siemens  per 
meter. 


'I-'-'- 
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EPSEFF  -  The  effective  relative  dielectric  constant. 


t 

Calling  Program  Element:  MAIN. 

Program  Elements  Called :  None . 

Common  Block  Areas:  None. 


j 

i 


I 


I 

I 

t 

) 
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DHORIZ 


Description:  Subroutine  DHORIZ  calculates  the  radio  horizon  distance  for  a 
receiver  at  height  and  a  transmitter  at  height  Z^.  The  horizon  distance  is 
given  by 

d  =  '  'lKf? T 

The  effective  earth  radius  r  , ,  is  related  to  the  true  earth  radius  r  by 

eff  t  J 

_  4 

reff  "  3rt  - 

Calling  Statement:  Subroutine  DHORIZ  is  called  by  the  statement 

CALL  DHORIZ  (DHZ,  ZRCVR,  ZXMTR) . 

The  input  variables  of  subroutine  DHORIZ  are: 

ZRCVR  -  The  receiver  height  in  meters. 

ZXMTR  -  The  transmitter  height  in  meters. 

The  output  variable  of  subroutine  DHORIZ  is: 

DHZ  -  The  radio  horizon  distance  in  kilometers  for  the  given 
transmitter  and  receiver  heights. 

Calling  Program  Element:  MAIN. 

Program  Elements  Called:  None. 

Common  Block  Areas:  None. 
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CAS  IN 


Description:  The  complex  function  subroutine  CASIN  evaluates  the  complex 
arcsine  of  a  complex  number  z  by  using  the  equation 

sin  *(z)  =  -i  £n  [(1  -  +  iz]  . 

Calling  Statement:  The  complex  function  subroutine  CASIN  is  called  by 

CASIN(Z) . 

The  input  variable  of  function  subroutine  CASIN  is: 

Z  -  A  complex  number. 

The  output  variable  of  function  subroutine  CASIN  is: 

CASIN  -  The  complex  arcsine  of  the  complex  number  z. 

Calling  Program  Element:  MAIN. 

Program  Elements  Called:  None. 

Common  Block  Areas:  None. 
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write  data  to  logical  pile  nuhper  u 


WRITE ( 11.930)  FREQ.ALPHA1.ALFWA2.ALPHA3.7  7.7  3.AL  CSS 
WRITEU1.979)  7PEF.RFFH 
! F ( HPCL  . EQ . 0  )  THEN 
WR  ITE (1  1 . 976  ) 

FLSF 

WRITEH1.977) 

END  IF 

FRFCbFREQ*1 .0E6 

CALL  SEAW?0<SGHGND.FPSREL,TEPP. SALT. FREQ) 

EPSGND*EPSRFL*EPSO 

WRITE  H 1.932 )  TEHP.SALT 

WRITE « 1 1.931 )  DELTA.FPSGNr.SGKGWO.ETA 


CALCULATE  'CONSTANTS*  NESTED  FOR  THE  EVALUATION  OF  MqDAL  EQUATIONS 


FT  A ABS*FT  A 

WAVENP  ■  2 . 0*P I .FREQ/C 
A2MAG  •  A8S ( ALPW A2 ) 

SGNA2»-SIGNI 1.0.ALPHA2) 

Cl  ■  CeRTI A2MAG/ALPHA1) 

C3  ■  CBRTIA2MAG/ALPHA3) 

CU  -  CPRTlALPHAl/WAVENC) 

C4  .  ALPWA1*72/(C11*C11> 

C5  .  CPRTf ALPHA l«ALpHAl/ (A2HAG*A2P AG  )  1 
TEMP  .  C8RT(WAVEN0«WAVEN0/(A2PAG*A2KAG)  ) 

C6  ■  TF HP .ALPHA  1*72 

C7  •  TEPP.I ALPHAl*22*ALPHA2*(73-7?) ) 

C8  •  CPRT(ALPHA1*ALPHA1/(ALPHA3.ALPWA3)  ) 

C9»( alpha i*72* alpha 2* (73-72) )*cbrtcwaveno*wavenc/( alphas* *lph* 3) ) 

SONG«EPSGNE/EPS()-I*SGHGNP/(EPSO*2.0«PI*FREQ) 

H— 2.0F-6.REFH/ALPHA1+7REF 
C11SQ-C11.C1 1 

the  Following  values  are  needed  by  subroutine  kwatx 

THESE  VALUFS  DEPEND  UPON  THE  P0LARI7ATI0N  OF  THE  FIELD 

For  W0Ri70NTAL  PcLARI7ATIoN  WE  have 

IF(HpoL.EQ.O)  then 
RNONG.CNE 

FOR  VERTICAL  P0LARl7ATIcN  WE  HAVE 
FUSE 
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RNONG«< 1 .0-I«ETAA8S-ALPHAl*H) /SOUG 
END  IF 


221 
22? 

223  C 

224  T AU-SCKG- 1. 0- I *ET A ABS+AL PH A 1*H 

225  TAUSR-CSGRT(TAU) 

226  TAU?-TAU*TAU 

22?  TAU3«TAU?*TAU 

228  TAU4-7AU2MAU2 

229  KDEL2»WAVEN'0«WAVEN0*nEL7A«rtELTA 

230  KDFL6«KDEL2**3 

231  KDFL10-KDEL?**5 

232  A0-RN0NG*TAUSR 

233  A2-RN0NG/<2.0*TAUSR) 

234  A3-KDFL2 

235  A4»-RN0NG/(8.0*TAU*TAUSR> 

236  A6-RN0NG/<16.0*TAU2*TAUSR> 

237  A7—KCEL6/3.0 

238  A8— 5.0*RN0NG/( 126.0*TAL3«TAUSR  ) 

239  A10b7.0*RN0NG/(256.0*TAL'4*TALSR> 

240  All-2. 0*KDFL10/15.0 

241  B0-1.0 

242  81-RN0N6*TAUSR*KI3EL2 

243  83-RNONG*KEEL2/<2.0*TAU3R> 

244  B5-RN0NG*  <-T  AU8R-KEEL6 /3 .0-KCEL2/ (  8 . 0*T  All*  T  AU$R  ) ) 

245  87«RNoN6<*I-KDEL6/I6.0*TAUSRUKDEL?/(  16.0*TAU2*TAUSR)  ) 

246  89»RNoMG*<?.0*TAUSB*KDEL10/15.0*KDEL6/C24.0*TaI*TaUSR) 

247  9  -5.0*KDFL2/tl28.0*TAL’3*TAl'SR)) 

248  BU-RN0NG*(KnEL10/(  15.0-TAU9R > -K0EL6/ ( 48.0*T AU2«T AUSR ) 

249  f  47.0«KDFL2/I256.0*TAU4*TAUSR> ) 

250  DA0-A2«C11S0 

251  DA1-1.5*A3*C11S0 

252  DA?-2.0*A4»C11SO 

253  DA4-3.0*A6*CllSO 

254  DA5-3.5*A7*CllS0 

255  0A6-4.0«A8«CUSG 

256  DA8-5.0*A10«C11SC 

257  DA9-5.5*A 1  ] *C1 ISC 

258  D0-0.5*P1*C1 ISO 

259  Dl-1.5«n3«Cl 1SQ 

260  D3«2.5*05*C11SR 

261  05-3. 5*B7*C1 ISO 

26?  07-4 .5*89*Cl ISO 

263  09-5.5«PU*CllS0 

264  C***« 

265  r  ARE  HrOAL  EIGENVALUES  Tc  PE  CALCULATED  OR  ARf  THEY  ALREACY 

266  C  STOREt  ON  FILE 

267  C 

268  C 

269  C  MFILE  -  IF  MFILE-0  CALCULATE  EIGENVALUES 

270  C  IF  NFILE-1  REAT  EIGENVALUES  FROM  FILE  12 

271  C 

272  IFIMFILE.FO.I )  THEN 

273  READ  1 12*971 J  NRmODE 

274  00  90  KC-l.NRMOnE 

275  REA0< 12*973)  ZERCSIKG) 


276  90 

277 

278 

279  C— ** 

260  C 

261  C 

262  C 

263  C 

264  C 

265  C 

266  C 

267  C 

268  C 

269  C 

290 

291 

292  C 

293  C 

294  C 

295  C 

296  C 

297  C 

298 

299 

300  C 

301  C 

302  C 

303  C 

304  C 

305  C 

306  C 

307  C 
306  C 

309  C 

310  C 

311  C 

312  C 

313  C 

314  C 

315  C 

316  C 

317  C 

318  C 

319  C 

320  C 

321  C 

322  C 

323  C 

324 

325 

326 

327 

328 

329 

330 


CONTUSE 
GO  TO  520 
END  IF 

SET  UP  SEARCH  RECTANGLES  FOR  FINDING  HOPES  AND  SOLVE  FOR  MCTES 


NLEFT  ■  NUMBER  OF  CONSECUTIVE  SEARCH  RECTANGLES  WITH  No  7EFCS  TC 
BE  FOUND  TO  THE  LEFT  OF  THE  ORIGINAL  SEARCH  RECTANGLE  EEFCRE 
STOPPING  SEARCH  TO  THE  LEFT. 

NRIGHT  ■  NUMBER  OF  CONSECUTIVE  SEARCH  PECTANGLFS  WITH  NO  7EPCS  TO 
PE  FOUND  TO  THE  RIGHT  OF  THE  ORIGINAL  SEARCH  RECTANGLE  BEFORE 
STOPPING  SEARCH  TO  THE  RIGHT. 

NLFFT-5 

NRIGHT-5 

IF  INITIALIZE  * ILFLAG-NLEFT'  PROGRAM  WILL  NCT  SEARCH  TO  THE  LEFT 
OF  THE  ORIGINAL  SEARCH  RECTANGLE 

IF  INITIALIZE  »IRFLAG«NRIGHT»  PROGRAH  WILL  NOT  SEARCH  TO  The  RIGHT 
OF  THE  ORIGINAL  SEARCH  RECTANGLE 

ILFLAG-0 

IRFLAG-0 

tol  -  tolerance  to  which  hopes  are  to  be  found 

TMESH  -  MESH  SI7E  USED  BY  ROOT  FINDING  SUBROUTINE  *F7ER0X» 

MPRINT  -  HPRINT-0  GIVES  NO  ‘DEBUGGING*  PRINTOUT  FROH 

SUBROUTINE  ‘FZEROX*  WHILE  MPRINT-J  DOES  GIVE  ‘DEBUGGING* 
PRINTOUT 

TLOLD  -  LEFT  COORDINATE  OF  INITIAL  SEARCH  RECTANGLE 
TROLD  -  RIGHT  COORDINATE  OF  INITIAL  SEARCH  RECTANGLE 
TBOT  -  BOTTOM  COORDINATE  OF  SEARCH  RECTANGLES 
TTOR  -  TOP  COORDINATE  OF  SEARCH  RECTANGLES 
TLSTEP  -  SIZE  OF  SEARCH  RECTANGLES  TO  THE  LFFT  CF  THE 
INITIAL  SEARCH  RECTANGLE 

trstep  -  size  of  search  rectangles  to  the  right  of  the 
initial  search  rectangle 


in  suproutine  »f7erox»  the  error  cqnpition  *x  hopes  found 

ON  SAMF  PHASE  LINE*  WITH  X.GT.l  CAN  OFTEN  BE  CORRECTED  BY 
REDUCING  BOTH  TMESH  AND  THE  SI7E  OF  THE  SEARCH  RECTANGLE. 
SUBROUTINE  *F7ER0X»  WILL  AUTOMATICALLY  REDUCE  TMESH  pY 
2.0  TWICE  BUT  IT  DOES  NCT  REDUCE  THE  SI7E  OF  THE 
SEARCH  RECTANGLE. 

•  ** 


TOL  -0.0001 

TMESH-0.04 

HPRINT-O 

NRHOOF-O 

TLOLP-O.O 

TROLD-2.0 

TBOT— TOL 
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•JTVT V*.!7.  • 


a 


8 


I 


a 

3 


£ 

1 

8 


ay 


3 


331 

33? 

333 

334 

335 

336  C 

337  C 

338  C 
336  C 

340  C 

341  C 

342  C 

343  C 

344  C 

345  C 

346  C 

347  C 
346  C 

349  C 

350  C 

351  C 

352  C 

353  C 

354  C 

355  C 

356  C 

357  C 

358  C 

359 

360  C 

361  C 

362  C 

363  C 

364  210 

365 

366 

367 
366  C 

369  C 

370  C 

371  C 

372  C 

373 

374  C 

375  C 

376  C 

377  0 

378  C 

379  C 

360  C 

361  C 

362  C 
383  C 

364  r 

365 


TT0P«2.0*(AL0SS*t.  OP-3/ (WAVEKC*C20LCGM-E'T  A/2.0  )/(Cll*C  11  > 

TLEFT-TLOLD 

TRIGHT-TROLD 

TLSTEP-2.0 

TRSTEP-2.0 

THE  FLAG  MNTCHK*  IS  USED  to  keep  track  OF  WHERE  THE  current 
SEARCH  RFCT ANGLE  IS  IN  RELATION  TO  THE  INITIAL  SEARCH 
RECTANGLE 

INTCHK-0  -  INITIAL  SEARCH  RECTANGLE 

I NTCHK *  1  -  SEARCH  RECTANGLE  TO  THE  LEFT  OF  INITIAL  SEARCH 

RFCT  ANGLE 

INTCHK-2  -  SEARCH  RECTANGLE  TO  THE  RIGHT  CF  INITIAL  SEARCH 
RECTANGLE 


*** 

NOTE  1*  BECAUSE  INTCHK  IS  USED  IN  SUBROUTINE  KHaTX  TO  FORCE  THE 
EVALUATION  OF  KH  AT  (  i3  1 1  )  Tf)  RE  ON  THE  'CORRECT  RRANCH' 

WHEN  DELTA  IS  NOT  EQUAL  TO  ZERO,  THF  VALUE  OF  TLCLD 
MUST  EQUAL  0.0 

note  21  after  the  node  search  is  completet  intcwk  is  again  set 
equal  to  zero,  this  is  again  FOR  USE  in  SUpROUTTNE 
KHaTX  when  EVALUATING  KHAT(Ou)  in  the  height-gain 
CALCULATIONS. 

«** 

intcmk-o 

CALL  root  FINDING  ROUTINE  OF  MoRFITT  AND  SHELLFAN  TO  FIND  ZEROS 
IN  CURRENT  SEARCH  RECTANGLE 

call  fzerox<tleft*tright,tbot.ttop»thesh.tol.fprint,eigen.nrE) 

WRITE (11,800)  TLEFT#TRIGHT.TBCT.TT0P 
IF(NRE.GT.O)  THEN 
DO  300  LK-i.NRE 

the  Following  statement  compensates  For  the  shift  in  on 
introduced  in  subroutines  »FDFTTX»  and  'FCTVLX*  in  ORDER  tc  avoid 
having  A  MFSH  LINF  ON  THE  REAL  AXIS 

FIGEN(LK)»EIGFN(LK)  -1*0.003 

•  *  • 

IF  THE  VALUE  pF  TMESH  IS  CHANGED  THE  OFFSET  IN  THE 
VALUE  CF  Qtl  IN  THIS  STATEMENT  AND  IN  THE  CORRESPONDING 
STATEMENTS  IN  SUBROUTINES  'FCFtTX*  AND  'FCTVLX'  MAY 
ALSO  HAVE  TO  BE  CHANGED  IN  ORDER  THAT  A  MESH  LINE 
DOES  NOT  FALL  ON  THE  REAL  AXIS 

SUBROUTINE  'EXCFAC'  ALSO  HAS  A  STATEMENT  THAT  DEPENDS  UPCN  THE 
SI7E  OF  THIS  OFFSFT 

•  ** 

WRITE(11#«01>  LK.EIGEN(LK) 


I 

I 


-J 


" 

■> 


•  * 

a 


> ' 

% 
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i+m  +  mM  m  1  1 


366  300  CONTINUE 

387  FNO  IF 

368  IF(NRF.F.C.O)  GO  TO  100 

369  C 

390  C  SINCE  SUBROUTINE  *F7ER0*»  EXTENDS  THE  SEARCH  RECTANGLE 

391  C  SLIGHTLY,  CHECK  FOR  AND  ELIHINATE  7ER0S  FOUNT  CITS  IDE  CURRtNT 

39?  C  SEARCH  RECTANGLE 

393  C 

394  JKFLAG»0 

395  DO  150  JK«1,NRE 

396  IF  UREAL (EIGEN! JK-JKFLaG) J.GE.TRIOHT ) . OR . C RE AL ( E I  GEN t JK-JKFl »G ) ) . 

397  SLT.TLFFT1 .OR. (A IH AG (EIGEN (JK-JKFL AG)  > .LT . TPCT ) .CR. ( A  IHAG < E I  GEN ( JK 

398  S-JKFLAG) ) .GT.TTOP) )  THEN 

399  JSTOR  ■  NRE-l 

400  JSTART*  JK-JKFLAG 

401  DO  160  J-JSTART.JSTOP 

40?  EIGEN ( J  )  -  E  I  GEN ( J+ 1 ) 

403  160  CONTINUE 

404  N*E"NRE-1 

405  JKFLAG-JKFLAGM 

406  END  IF 

407  150  CONTINUE 

408  C 

409  C  STORE  7ER0S  FOUND  IN  CURRENT  SEARCH  RECTANGLE  IN  ARRAY 

410  C  CONTAINING  ALL  2ER0S. 

411  C 

41?  IF(NRE.GT.O)  KN-NRHODE+NRE 

413  I F ( KN.GT.NR7  )  THEN 

414  NROVER-KN-NRZ 

415  KN-NR7 

416  NRMODE-NRZ-NRE 

417  WRITE ( 1 1,902  I  TLEFT,TR IGHT.NRCVeR 

418  END  IF 

419  IFCKN.LT.NR7)  THEN 

420  JEND-NRE 

421  ELSE 

422  JEND-NRE-NROVER 

423  END  IF 

424  DO  190  J-1,JEND 

425  ZEROS (NRHODE+J)*EIGEN<  J ) 

426  190  CONTINUE 

427  NRMODE*»NRMODE*NRE 
426  C 

429  C  IF  MLFLAG.NE.NLEFT'  F0R*  NEW  SEARCH  RECTANGLE  TO  THE  LFFT  CF 

430  C  TOTAL  REGION  SEARCHED. 

431  C 

43?  100  IF(  ILFLAG.EQ.NLEFT  J  Go  TO  *00 

433  IF((NRE.EG.O).AND.(INTCHK.EG.l) )  THEN 

434  ILFLAG-ILFLAGM 

435  ELSE 

436  ILFL AG»0 

437  END  IF 

438  IF (ILFLAG.EQ.NLEFT)  GO  TO  400 

439  INTCHK-l. 

440  TLEFT-TLOLD-TLSTEP 


130 


441  TRIGHT-TLOLD 

442  TLOLP-TLFFT 

443  GO  TO  210 

444  C 

445  c  IF  MRFLAG.NF..NRIGHT'  FORM  NEW  SEARCH  RECTANGLE  TO  THE  RIGHT  OF 

446  C  TOTAL  REGION  SEARCHED. 

447  C 

448  400  IF(IRFLAG.FO.NRIGHT)  GO  TO  200 

449  !F((NPF.EQ.0).ANE.<INTCHK.EG.2n  THEN 

480  IRFLAG-IPFLAG+1 

451  ELSF 

452  IRFL AG*0 

453  END  IF 

454  IF(IRFLAG.EO.NPIGHT)  GO  TO  200 

455  INTCHK-2 

455  TLEFT«TROLD 

457  TRIGHT-TROLD+TRSTEP 

458  TROLD-TRIGHT 

459  GO  TO  210 

460  C***« 

461  C  NODE  SEARCH  COMPLETE7) 

462  C 

463  C 

464  C  ORDER  7ER0S  FOUND  PY  ORDER  OF  INCREASING  REAL  PART. 

465  C 

466  200  IFINRMGDE.GT.1 >  THEN 

467  JKEND-NRHODE-1 

466  DO  410  JK-l.JKENn 

469  NEND«NRMODE-JK 

470  DO  420  J-l.NEND 

471  IF(REAL(2ER0S(NRH0DE+1-J) ) .LT .REAL (ZEROS ( NRMODE-J > )  )  THEN 

472  CTEMP«7ER0SINRM0DE*1-J> 

473  ZEROS  (NRHODEM-JI  “ZEROS  (NRMOEE-J) 

474  ZEROS (NRHODE-J>-CTEMP 

475  END  IF 

476  420  CONTINL'F 

477  410  CONTINUE 

478  FNn  IF 

479  C 

460  C  THE  POSSIBILITY  EXISTS  THAT  DUPLICATE  (WITHIN  THE  TOLERANCE  *TCLM 

461  C  7ER0S  OF  THE  MODAL  EQUATION  WILL  BE  FOUND.  ELIMINATE  THESE 

462  C  DUPLICATE  ZEROS. 

463  C 

464  JKFLAG-0 

465  JKEND»NRM0DE-1 

466  DO  240  JK-1.JKEND 

467  CHKR«AeS(REAL(ZEROS( JK- JMFLAG )J -RE AL ( ZEROS ( JIU1-JKFLAG) ) ) 

468  CHKI«ABS( AIMAG(7ER0S( JK-JKFLAG))-AIHAG(7ER0S( JK^i-JKFLAG) ) ) 

469  CHKSQ«SQRT(CHKR*CHKR«.CHM*CHKI ) 

490  IF (CHKSG.LT. TOD  THEN/ 

491  JSTOP-NRMODE-1 

492  JSTART-JK-JKFLAG 

493  DO  250  J" JSTART# JSTOP 

494  ?ER0S(J)»7FR0S(J'»1  ) 

495  250  CONTINUF 


496  NRMODE-NRHODE-1 

497  JKFLAG-JKFLAG+1 

496  END  IE 

499  240  CONTINUE 

500  C 

501  C  FOR  VERY  WELL  TRAPPED  MfiPES  THE  IMAGINARY  PAPT  CE  THE  2ERC 

502  C  OF  THE  MODAL  EQUATION  MAY  RE  FOUND  TO  RE  NEGATIVE  (BUT  LES 

503  C  IN  ARSCLIJTE  VALUE  THAN  »TOLM.  SET  THESE  IMAGINARY  PARTS 

504  C  EQUAL  TO  EERO 

505  C 

506  DO  405  J-l.NRM&DE 

507  !F< AIMAG(7ER08( Jl) .LT.O.O)  ZEROS ( J ) -ONE *RE al < 2FR0S t J ) ) 

506  405  CONTINUE 

509  C 

510  C  CONVERT  MODES  in  COMPLEX  Gll-PLANE  to  modes  in  the  COMPLEX 

511  c  theta  plane,  this  output  is  for  comparison  purposes  ONLY. 

512  C 

513  C  ANGLES  ARE  REFERENCED  TO  THE  HFTGHT  7REF  WHERE  m < 7 )  .U ( ZREF ) 

514  e  is  specified. 

515  C 

516  DO  220  JM.NRMODE 

517  RAD«CS0RT(7ER0S( J)*C11*C1 1  +  AL PH A  I *H» 

516  THETA! J1»CASIN (RAD) 

519  220  CONTINUE 

920  C 

Stl  C  CALCULATE  ATTENUATION  RATE  FOR  DIFFERENT  M0DES  AND  OUTPUT  RESULT 

SC2  C 

5*3  WRITE ( 11.903 ) 

524  IFf NRMODE.CT.  0.0)  THEN 

S*S  WRITE ( 12*972 )  NRMOEE 

4M  DO  230  J-l.NRMODE 

3t7  BETAS0«1.0*I*ETAABS-ALPHA1*H-Cl  1*CU*ZER0S(  J) 

5*6  BETAI-AIMACICSORTIBETASQ) ) 

§29  ATNU«-C20LOC*WAVENO*BETAI«1.0E+3 

936  WRITE  C 1 1.904 )  J,7ER0S(J)*J. THETA! J),ATNU 

531  WRITE (12.970)  J,2ER0S(Jl 

50f  230  CONTINUE 

533  END  IF 

334  C***« 

500  C  CALCULATE  FIELD  STRENGTH  RELATIVE  Tc  FrEE  SPACE  VALUE 

836  C 

537  520  WRITC(11.905) 

536  WRITE ( 1 1.907 ) 

539  INTCHK-0 

340  DO  505  JRNG* 1 »NRNG 

541  RNC-RNGINT+FLOAT! JRNG-l )*RNGSTP 

542  DO  500  JXMTR-1.N2XMTR 

543  7XMTR-7XINIT+FL0AT! JXMTP-i )#7XSTEP 

544  DO  510  JRCVR-1.N2RCVR 

545  7RCVR"7RINIT*FL0AT( JRCVP-1 )*7RSTEP 

546  CALL  P0DSUM(FCmS»EImS»PNG,7RCVR.ZXMTR, ZEROS. NR7.NRM0DE) 

547  CALL  OHORI7(DH7,7RCVR,7XMTR> 

548  WRITE! 1 1.906 )  RNG.ZXMTR,7RCVR.ECHS,E IMS.DH7 

549  510  CONTINUE 

550  500  CONTINUE 


tft  rr> 


551  50*  CONTINUE 

55?  C**** 

553  STfip 

554  END 


1  SUBROUTINE  C  ADO!  7  A,  ?E.  XA.  XE.  V  A,  YE  ) 

2  C********** 

3  C  THIS  SUPROUTINE  TAKES  THE  EXTENTEO  COMPLEX  NUMBERS  »X»  AN"  »Y 

4  C  AND  ADDS  THEP  TO  FORP  THE  EXTENDED  COMPLEX  NUPopR  »Z* 

5  C 

6  C  THE  EXTENDED  COMPLEX  NUMBER  »?'  IS  PACE  UP  CF  THE  COMPLEX 

7  C  AMPLITUDE  »7A*  AND  THE  REAL  EXPONENT  »7E*.  THIS.  »7»  IS 

a  C  EQUAL  TO  »7«?A*FXP(7E > * 

Q  C********** 

10  implicit  double  precision*?  <a-h,o-7> 

11  COMPLEX  7A.XA.YA 

12  I F ( (REAL(XA).EO.O.Ol.ANr.f A  I  PAG t X A > .E 0 .0 .0 >  »  THEN 

13  IFf <REAL<YA>.EQ.O.O>.ANO.(AlPA6(YA>.EQ.O.O> >  THEN 

14  7A-I0. 0.0.0) 

15  ZE-0.0 

16  RETURN 

17  ELSE 

IS  7A.YA 

19  7E-YE 

20  RETURN 

21  END  IE 

22  END  IF 

23  !EUREALIYA).EQ.O.O).AND.(AIMAG{YA).E3.0.0)  »  THEN 

24  ZA-XA 

25  ZE-XE 

26  RETURN 

27  END  IF 

26  E-YE-XF 

29  IF(XF.GE.YE)  THEN 

30  IF ( E .GT.-65.0 )  THEN 

31  R-EXP(E) 

32  ELSE 

33  R*0 .0 

34  END  IF 

35  7A.XA4P.YA 

36  ZE-XF 

37  ELSF 

36  IF  ( -F «GT .-65.0 )  THEN 

39  P-FXP(-E) 

40  ELSE 

41  R«0.0 

42  END  IF 

43  Z*«YA*R*XA 

44  7F-YF 

45  END  IF 

46  IF( (REAL<XA).EQ.O.O).ANn.(AlMAP<7A).EO.O.O)  )  ZF»0.0 

47  RETURN 

46  FND 


.•VO.*.  • 
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SUBROUTINE  ADDX(ZA.ZE.XA.XE.YA.YE) 


1 

2  C 

3  C 

4  C 

5  C 

6  C 

7  C 
6  C 

9  C 

10 
11 
12 

13 

14 

15 
ie 
17 
la 

19 

20 
21 
22 

23 

24 
H 
22 
27 
22 

29 

30 

32 

33 

34 

35 

36 

37 
36 

39 

40 

41 

42 

43 

44 

45 

46 

47 


THIS  PROGRAM  TAKES  THE  EXTENDED  REAL  NUMBERS  »X»  AND  »Y» 
AND  ADDS  THEM  TO  FORM  THE  EXTENDED  REAL  MUMPER  »7» 

THE  EXTENDED  REAL  NUMBER  *7*  IS  *A0E  UP  OF  THF 
AMPLITUDE  »ZA»  AND  THE  EXPONENT  »7F».  *7'  IS  F 0 U A L  TO 
»Z«ZA*EXP(ZE) * 


implicit  double  precisions  ca-h#o-?> 

IE(XA.EC.O.O)  THEN 
IFCYA.EQ.O.O)  THEN 
7A-0.0 
7E“0.0 
RETURN 
ELSE 
7A-YA 
7E-YE 
RETURN 
END  IE 
END  IE 

IFIYA.EC.O.OI  THEN 
ZA-XA 
ZE-XE 
RETURN 
END  IE 
E-YE-XE 

IFIXE.GE.YEI  THEN 
IE(E.GT.-85.0)  THEN 
R-EXPIE) 

ELSE 
R*0 . 0 
END  IE 
Z'«XA*R*YA 
ZE-XE 
ELSE 

IE<-E.GT.-85.0>  THEN 
R-EXPI-E J 
ELSE 
R-0.0 
END  IE 
?AbYA+R*XA 
ZE-YF 
END  IE 

IEI7A.EC.0.0)  7E-0.0 

RETURN 

END 


SUBROUTINE  HNKLX ( 7.H 1 A.H 1 E» H2 A, H2F. TH 1  A. "H 1 E. TH2 A » DH2E ) 


1 

2  C 

3  C  THIS  PRCGPAM  EVALUATES  THE  MODIFIED  HANKEL  FUNCTION'S  HKZI  ANT 

4  C  H2(?)  ANT  THEIR  DERIVATIVES  H)M?)  A  NT  H?M7>  WITH  A  'RELATIVE 

5  C  ACCURACY  *  BETTER  THAN  10**1  -3  > 

6  C 

7  C  THE  VALL'FS  are  RETURNED  AS  a  COMPLEX  AMPLITLTE  (F.G.  HIA) 

a  C  AND  A  REAL  EXPONENT  <  E  .G.  HIE).  THE  MODIFIED  H aNKEL  FUNCTION 

9  C  Him  wri.'LD  THEN  ECUAL  HI m «H t A*FVP (H 1 E > 

10  C********** 

11  implicit  double  precision**  <a-h.o-7> 

12  DOUBLE  PRECISIONS  l M7, 1  My  i 

13  COMPLEX  I,C0Nl,C0N2,C0N2CJ,CE WCEiCJ,CC2.CE2CJ,7.2SQ.?CUPE, 

14  «  SUMF7#SUMG7,SUMFP7,SUMGP7.F2>(;?,FPY,gp,7,b1  A.H2A.DH1  A.0H2A, 

15  *  C0NFP7,7SQR#CSCRT,7FR#X WCEXP,*TH,ZMTH,EX I.SLMCKP.SUMCKM, - 

16  «  Sl.'MDKP,SUMDKM,C0NF7 

17  DIMENSION  A<9>.P(9>.C<9),P<9>.CK<5>,tK(5) 

18  C**  ARRAY  CONTAINING  COEFFICIENTS  FOR  E(?> 

19  DATA  (A(N).N»1,9)/  -1 .66666667E-1,  *5 .55555556E-3.  -7 . 7 1 604S38E-5 

20  *  ♦5.84549196E-7.  -2 .78356760E-O,  *9 . 096626  I 4E- 1 2. 

21  f  -2.16586337E-14,  ♦3.02366552E-17.  -5.58g267l2F-20/ 

22  C*«  ARRAY  CONTAINING  COEFFICIENTS  FOR  G(?> 

23  DATA  (B(N),N-t.9)/  -8.33333333E-2.  *1.984126980-3.  -2.20458S54E-5 

24  «  ♦! .41319586F-7.  -5.88831607E-10.  * l . 721 72985F- 1 2. 

29  *  -3.72668798E-15.  +6 .2 1 1 14663F- 1 8.  -8.21580242E-21/ 

26  C*«  ARRAY  CONTAINING  COEFFICIENTS  FOR  FM7) 

27  DATA  <C<N)»N«l»9)/  -6.66666667E-2.  ♦ 1 .38888B89E-3.  - 1 .4029 1 807E-5 

26  *  ♦8.35070280F-8.  -3.27478541E-10.  *9. 096626 1 4E- 1 3. 

29  *  -1.88335945E-15.  *3.01820425E-1 8.  -3 . 85466698E-2 I / 

30  C*«  ARRAY  CONTAINING  COEFFICIENTS  FOR  GMZ) 

31  DATA  (C (N),N*1.9)/  -3 .33333333E- 1 ,  *1 .38868889E-2,  -2.P0458554E-4 

32  *  ♦1.83715461E-6.  -9.42130572E-9,  +3 .2712867 1 E- 1 1 . 

33  T  -8.19871355E-14*  +1 .55278666F- 1 6.  -2.300424680-19/ 

34  C**  ARRAY  CONTAINING  COEFFICIENTS  LN  ASYMPTOTIC  EXPANSION  OF  H 1 ( 7 ) 

35  C  AND  H2m 

36  DATA  <CK(N>.N-J,5)/  1 .041 66667E-  1 ,  8 . 35503472E-2.  1 . 28226575E- l. 

37  9  2.9i849o26E-1,  8.81627267E-1/ 

36  C*«  ARRAY  CONTAINING  COEFFICIENTS  IN  ASYMPTOTIC  EXPANSION  OF  H1MT) 

39  C  AND  H2M7J 

40  DATA  (CK(N).N«i,51/  *1.458333330-1.  -9 .874 i 31 94E-2, 

41  f  ♦! .43312054E-1.  -3. 1 72272030-  1  ,  +9 . 42429 1 48E- 1 / 

42  C 

43  DATA  XO,X WALpHA.pI.pI3/  9. 304367 1 7E- 1 .  6.78298725E-1. 

44  9  8.536672 19E- 1 .  3. 14 159265E0.  1 .04719755F0/ 

45  C 

46  DATA  I.CoN1.CoN2,CoN2CJ/  (0. 0*1.0).  (0.0.1.15470054). 

47  *  ( I. 0.0. 577350269).  (1.0.-0.577350269)/ 

46  C 

49  DATA  CE1.CE1CJ.CE2.CE2CJ/  (0.258819045.0.965925826). 

50  *  (0.258819045.-0.965925826).  { -0.965925826, 0. 2588 1 9045 ) . 

51  *  (-0.965925826.-0.258819045)/ 

52  C«*** 

53  C  TFST  WHFTHER  TO  EVALUATE  MOOIEIEB  HANKEL  FUNCTIONS  BY  SERIES 

54  C  EXPANSION  OR  ASYMPTOTIC  EXPANSION 

55  C 


56  AMP7»CAFS<7) 

57  !F< APP7.LT. <3. 511  THEN 

58  C********** 

59  c  EVaLDaTF  HOCIFIED  hankel  functions  using  series  EXPANSIONS 

60  C 

61  7S0-7*7 

62  7CUSF«7*7SG 

63  SIJMF7«A  (  9  )  *7CUPE 

64  SUMG7-FI9) *7CURE 

65  SUMFP’»C(9)*7CUPE 

66  SUMGP7«r<9)*7C!J9E 

67  DO  100  *«8» 1 »- I 

66  Sl)MF7-(Sl)MF7  +  A(K)  U7CHBE 

69  StlMG7«  1 S1IMG7+BIK  1  1*7  C'JPE 

70  SUMFP7« ( SUMFP7+C ( K ) ) *7CUpE 

71  SUMGP7* ( SUMGP7+D ( K )  )*7CtlPE 

72  100  CONTINUE 

73  F7«(SUFF7-M.0)*X0 

74  G?»<SUFG7M.0>*X1*7 

75  FPZ--(SUNFP7*t ,0I*V0*7SO/2.0 

76  GPZ-(SUFGP7*1.0)*VI 

77  C0NF7«CCN1*F7 

76  CONFP7«C0Nl«FP7 

79  C 

60  K1A»C0N2*G7-C0NF7 

61  K1E-0.0 

62  K2A-C0N2*<G?*F7I 

63  K2E-0.0 

64  DK1A«CCN2*GP7-C0NFP7 

65  DK1E-0.0 

66  DK2A-C0N2MGP7+FP7) 

67  DK2E-0.0 

68  RETURN 

69 

90  ELSE 

91  . . . 

92  C  EVALUATE  MqCIFIEO  HANKEL  FliNctIcnS  USING  AsV^PTcTlC  EXPANSES 

93  C 

94  7S9R-CSCRTI7I 

95  7FR«CSCRT ( 7S0R I 

96  7TH«7*7SGR 

97  7MTH.I/7TH 

96  XT«2.0*7TN/3.0 

99  RPXI«PFAL(XI) 

100  I  MX  !■ A  I  NAG (XI) 

101  FXI«CFXP< 1*REXI ) 

102  SIJMC*P-CK<5>*?HTF 

103  SUMC*F»-SUHCKP 

104  SUMDKP»DKI5)*7MTH 

105  sumo*,f»-sufokp 

106  DO  107  K-4.1.-1 

107  SUMC*P»(SUPCKP*CK<Kn«7PTN 

108  SUMCFP«-»SUMCKH*CK<K) |*?"TH 

109  SUMPKP»1SUP0FP*0K(K  )  »*7FT>J 

110  SUMDFF"-(SUH0KM4DK(K) I*?MTH 
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1  111 

10?  CONTINUE 

112 

SUMC*P»1 .O+SUMCKP 

,  113 

SUMC*HM.04SIIMCKH 

114 

$UME*P«1 ,0+SUMDKP 

!  115 

SUME*H«1 .O+SUMOKH 

116 

C 

\  117 

C 

EVALUATE  PH(7) 

118 

c 

1  119 

RE7»RF  AL ( 7  > 

120 

I  M7»  A  1 H AG ( 7 ) 

)  121 

1F(RE7.GT. (0.0) >  THEN 

12? 

PH7«ATAN( IHX/RE7) 

1  123 

ELSE  IF ( PE7.LT . ( 0.0 ) )  THEN 

124 

IF( IH7.GE. (0.0» >  THEN 

l  125 

PH7«PI*ATAN(IM7/RF7> 

126 

ELSE 

127 

PHZ— PI*ATAN(  IM7/PEZ) 

128 

END  IF 

| 

ELSE 

130 

TF( IH7.GT. (0.0) )  THEN 

131 

PH7-PI/2.0 

132 

ELSE  IFUM7.LT. (0.0)  >  THEN 

133 

PH7—PI/2.0 

134 

ELSE 

135 

PH7-0.0 

136 

END  IF 

137 

END  IF 

138 

c 

139 

c 

EVALUATE  MODIFIED  HANKEL  FUNCTIONS 

140 

c 

141 

14? 

143 

144 

145 

146 

147 

148 

149 

150 

151 
15? 

153 

154 

155 

156 

157 

158 

159 

160 
161 
16? 

163 

164 

165 


IF(PH?.GE.-Pl3>  THEN 
H1A«ALPHA*EXI«CE1CJ*SUMCKM/2FR 
HIE— IMXI 

IF  C (PEAL (HI  A) .E0.0.0> ,AND.( AlMAGfHiA ) .E0.0.0>  >  HjE-0.0 

0HlA«ALPHA*I*7ER«EXI*CElCJ*SL'PEXP 

DH1E--IMXI 

IF( (REAL(DHiA) .EG.0.0> .ANp.( AIMAG(DHlA) .EC.n.0>  >  HHiE-O.C 
ELSE 

IF ( IMVI.GF.0.0)  then 

E8M— ?.0*1PXI 
IF(ESM.GT.-85.01  THEN 
»EEXP«EXP»E8M) 

ELSE 

BEEXP-0.0 
END  IF 

H1A»ALPHA«(CE2CJ«SUMCKP/EXI4REE<P«EXI«CE1CJ«SUHCKH)/7FR 

H1E-IHXI 

IF((REAL(HlA>.E0.0.0>.ANO.<ATMAG(HlA).EQ.0.0>>  HlE-0.0 
DHIA"ALPHA*I*7ER*(REEXP*EXI«CE1G J*SUM0KP-CE2CJ*SUMnKH/EXI  ) 
DHIE-IHXI 

TFI (RFALIDHIA).EG.O.O) .ANr.<AIHA3(CHlA» .EC.O.O) »  OHIE-O.O 
PL8E 

PSM.2.0MMX  I 
IF(ESM.GT.-85,0>  THEN 
PEEXP»EXP<ESMt 
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166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 

186 

167 

168 
169 
1*0 

191 

192 

193 

194 

195 

196 

197 
196 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215  C 

216 


FLSF 

»EE*P«0.0 
END  IF 

HI  A«ALPHA<MREEXP«r;E2CJ*SMHCKP/EXI«'EXI*CElCJ*SUf'CKM)/7FP 

H1F»-INXI 

IF( (PFALf HlA).EQ.0.Q>.ANn.( AIPAG(H1A» .EG.0.0>>  HlF-0.0 

DHl A«ALPHA*I*7FP*(EVI*CElC J*?UP0KP-REEXP<CE2CJ*SUMPKiVEXI  ) 
DH1E--IHXI 

!F(  (REALIDHJA)  .EO.O.O).ANr.(  AIPAG(rHA)  .EC.o.O)  >  PHiE'O.O 
FND  IF 
END  IF 

IF  <  PH*  .GT »P  1 3  )  THEN1 
IF(  IMVI.GE.O.O)  THEN 
ESM«-2.0*INXI 
IF<ESF.GT.-85.0I  THEN 
REEXP*EXP (ESH ) 

ELSE 

REEXP-O.O 
END  IF 

H2A»ALPHA*(CEl*SUHCKP/EXUREEXP«EXI.CE2*SU>'rK(/)  /7FR 
H2F-IFXI 

IF( <REAL<H2A> .EO.O.0>.AND.< AIHAG(H2A> .EO.O.O))  H2E-0.0 

DH2A«ALPHA*I*ZFP«<REEXP*EXI*CE2*SUHEKP-CEl*SUHEKM/EXI  ) 
DH2F-IPXI 

I F I  (REALIDH2A)  .EQ.O.O>  .ANE.I  A  IHAGIDH2A)  .EC.O.O>  >  T1H2E-0.0 

ELSE 

ESM«2.Q* IMX  I 
IFIESF.GT.-85.0)  THEN 
REEXP«EXP<ESM» 

ELSE 

REEXP-0.0 
END  IF 

H2A«ALFHA*(REEXP«CEl*SUFCKP/EXUEXI*CE2*SL>'C^H>/7Ff? 

H2E—IFXI 

IF ( IREAL(H2A>.E9.O.0>.AND.(AIHAG(H2A).EO.0.0l  >  H2E-0.0 

DH2A»ALPHA«I«7FR*(EXI*CE2*SUKEXP-REEXP*cEl«SH^EKM/EXI ) 
DH2E—  IMXI 

IF ( lREALIDH2A>.EC.o.O>.ANE.tAIMAe(DH2A>.EC.o.O>  >  3H2E-0.0 

END  IF 
ELSE 

H2A»ALPHA«CEl«SUFCKP/(7FR*EX!  > 

H2F-IPXI 

IF<(RFAL(H2AI  .EO.o.O>.A^f,.<AlHAG<H2A)  .EO.O.O'  >  H2E-0.0 

DH2A»-ALPHA«I*7FR*CEl*Sl!MDKH/EXI 

DH2E* JPX I 

IF(  <REAL(DH2A>  .EO.O.OKANp.  (  A  IPAG(DH2a>  .EC.O.O)  )  DH2E«0.0 

END  IF 
ENn  IF 
RETURN 


END 


IL 


1  SUBROUTINE  KHNKLX<?.K1A,K1E,K2A,K2E.EK1A.DK1E»PK2*»DK2E> 

2  C*. •••«*«•« 

3  C  THIS  PROGRAM  EVALUATES  THE  MODIFIED  HANKEL  FUNCTIONS  K 1  C  2 »  ANT 

4  C  K2m  ANC  THEIR  DERIVATIVES  KIM?)  ANT  K2M|)  HIT*-  A  »REL»HVF 

5  C  ERROR*  BETTER  THAN  10**(-3) 

6  C 

7  C  THE  VALUES  ARE  RETURNED  AS  A  COUPLE*  AMPLITUDE  (E.G.  K 1 A I 

6  C  AND  A  REAL  EXPONENT  (E.G.  K^).  THE  MCDIEIEE  *- ANKEL  FUNCTION 

9  C  Kj(7)  WOULD  THEN  ECUAL  K 1 ( 1 >«K 1 A*E<P ( K IE  1 

10  f ********* 

11  IMPLICIT  DOU0LF  PRECISION**  (A-H.0-2) 

12  DOUBLE  PRECISIONS  IM7,KlE»K2E, TM<I 

13  COMPLEX  I.C0Nl,C0N2.C0N2CJ.CEl.CElCJ.CE2,CF2CJ.?.7SC,ZCUeE. 

14  J  SUME7,SUMC7,SUMFPX,SUERR7.EZ,07»FP7,GP7.Et a#K2A.DK1 A.DE2A, 

15  *  C0NEP?.28GR,CSCRT,7FR,Xi,CEXP.xth,7HTH,EXI»SIkCKP»SUMCKh, 

16  «  SIIMDKP.SUMDKM.CONFE 

17  DIMENSION  A(9).P(9).C<9).D(9).CK<5).EK(5) 

16  C**  ARRAY  CONTAINING  COEFFICIENTS  FOR  FIX) 

19  DATA  I  A(N).N«l.9>/  - 1 .6666S667E- i  -  ♦5.55555556E-3A  -7.71604938E-5 

20  *  ♦5.S4549196E-7#  -2.76356760E-9.  *9. 096626 1 4E- | 2. 

21  S  -2.16586337E-14,  ♦  3.<»2366552E-17,  -5.5S926712E-20/ 

22  C*«  ARRAY  CONTAINING  COEFFICIENTS  FOR  G(?) 

23  DATA  (P(N).N«1,9)/  -8.33333333E-2.  *1 .98412698E-3.  -2.20458554E-5 

24  f  ♦1.41319586E-7.  -5.88831607E-10.  ♦ 1 .721 72985E- 1 2. 

25  *  -3.72668798E-15*  *6.21 1 1 4663E- 18.  -8.21580242F-21/ 

26  C**  ARRAY  CONTAINING  COEFFICIENTS  FOR  EM2) 

27  DATA  I C ( N  ) . Na l*  9 ) /  -6.66666667E-2.  ♦ 1 .38888889E-3.  -t  .40291807E-5 

26  *  ♦8.35070260E-6.  -3.2747854 lE- | 0.  *9. 096626 1 4E- 1 3. 

29  *  -1.88335945E-15.  ♦3.01820425E-18.  -3.85466698E-21/ 

30  Cp*  ARRAY  CONTAINING  COEFFICIENTS  FOR  CM?) 

31  DATA  (D(N),N-l,9>/  -3.33333333E-1.  *1 .38888689E-2.  -2.20458554E-4 

32  S  ♦1.83715461E-6.  -9.42130572E-9.  *3. 2712867  IE- 1 1. 

33  *  -8.19871355E-14*  ♦ 1 .53278666E- l 6.  -2. 30042468E- 1 9/ 

34  Crr  ARRAY  CONTAINING  COEFFICIENTS  IN  ASYMPTOTIC  EXPANSION  OF  Kim 

35  C  AND  K2 1  7 ) 

36  DATA  (CK(N).N-l,5> /  1.04166667E-1.  8.35503472E-2.  1 .28226575E-1. 

37  1  2.9ie49026E-l»  8.8 |627267E- 1 / 

36  CRR  ARRAY  CONTAINING  COEFFICIENTS  IN  ASYMPTOTIC  EXPANSION  OF  KIM?) 

39  C  AND  K2M?) 

40  DATA  (EK(N),N-1.5)/  -M.45833333E-1,  -9.874 j 3 1 94E-2. 

41  t  ♦1.43312054E-1*  -3. 17227203E-1.  *9 . 42429 1  4  8E- 1  / 

42  C 

43  DATA  X0.Xl.ALPHA.pl.pI3/  9. 304367 1 7E- 1 ,  6 . 78298725E- 1 . 

44  *  6.5366721 9E- 1*  3. 14159265E0.  I . 047 1 9755E0/ 

45  C 

46  DATA  I*CoNl*CnN2*CoN2CJ/  (0. 0.1,0).  (0.0.1.15470054), 

47  *  (1.0*0. 577350269)*  1  1 .0*-0. 577350269  )  / 

48  C 

49  DATA  CEl»CFlCJ*CE2»CE2CJ/  1 0 . 2588 1 9045* 0.965925P26  ) * 

50  f  (0.258819045.-0.965925826).  (-0.965925626.0.258619045). 

51  *  (-0.965925826,-0.258819045)/ 

52  Crr** 

53  C  TFST  WHETHER  TO  FVALIJATE  MqO  IF  IED  HAKKEL  FUNCTIONS  BY  SERIES 

54  C  EXPANSION  OR  ASYhPTCTIC  EXPANSION 


SWTS  'i1 


56 

57 

56  Ci 

59  C 

60  C 

61 
62 

63 

64 

65 

66 
67 
66 

69 

70 

71 

72 

73 

74 

75 

76 

77 
76 

79  C 
60 
61 
62 
63 
84 
65 
86 
67 


AMP7«CAPS<7» 

!F(  APP7.LT.  (3.5)  )  TEFN 


EVALUATE  MODIFIED  HANKEL  FUNCTIONS  USING  SERIES  EXPANSIONS 


7SQ.7*7 

ZCUBF«7«7SG 

3IIMF7»A(9)«?CIIPF 

SUMG7»F(9I*7CflBE 
SUMFP7*C(9)*7CUBE 
8UMGPX*C(9)*7CtinF 
DO  100  *“*.1.-1 
9UHF7*  (SUHF7+AIK)  )*7C'JBE 
SUMG7«(SIIPG7*B<KI  )*7C'IBE 
SUMFP?"  (SUMFP7*C<K)  I  *7CUPE 
SUMGP7*  ( SUMGP2+D ( K )  )  «7CUEE 
100  CONTINUE 

F7«(SUFF7'*1»0)*X0 

G7«(*IJFG7*1.0)*X1«7 

FP7»-(9UMFP7+1.o)«XO*7SO/2.0 

GPZ«(SL'HGP?M.0>*X1 

C0NF7«CCN1«F7 

CnNFP7-C0Nl*FP7 

HI A-C0N2«G7-C0NF7 
H1E-O.0 

H2A«C0N2CJ«G7+C0NF7 

H2E-0.0 

DH1A-C0N2«GP7-C0NFP2 

DH1E-0.0 

DH2A»C0N2CJ«GPI+C0NFP7 

DH2F-0.0 

RETURN 


evaluate  edified  hankel  functions  using  asymptotic  expansions 

79QR»CSCPT ( 7 ) 

7FR«CSCRT(7SGR) 

7TH«7*7SGP 
7MTH.I/7TH 
XI»2.0*7TH/3.0 
RFXT-RFAUXI  ) 

IMXI-AIHAGIXI ) 

FXI-CFXPf I«RFXI ) 

SUMCKP«CK (5 ) •2MTH 
6UHCFH--SUFCKP 
SUMDkP*Dk 15 ) *7MTH 
SuMrFH»-Su,'DKP 
DO  102  K»4 « 1 »  - 1 
3UMCFP«(SUHCKP+CK(K) ) *7MTH 
SUMC*H*~ (SUMCKM4CKIK) )*7*TH 
9UMt*P»(SUM0KP*0K<K  >  U7HTH 
SUMO*F*”!SUMDFM*nK(K) W7MTH 


140 


71 

« I 

i 

j 


nt 

112 

113 

114 

115 

116  C 

117  C 

118  r 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138  C 

139  C 

140  C 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 


102  CONT  I  M.'E 

SUHCKP-1 .0*$HMCKP 
SUMCKP-1 .0  +  S'JMCKP 
3UMDKP-1.0+SUMDKP 
9UMn*P»1.0*SUMf)Kf' 

EVALUATE  PH<7) 

»E7«REAL(7) 

I A  IE AG ( 7 ) 

I E ( RE7 *6T  * ( 0 .0 ) )  THEM 
PH7«ATAN( IM7/RE7) 

EL8E  IE1RE7.LT. (0.0)  )  THEN 
IE ( 1M7.GE. ( 0.0 ) )  THEN 
PH?«PI*ATAN(  I M7 /RE? ) 

ELSE 

PHZ—PI*ATAN(  IM7/REZ) 

END  IE 
ELSE 

IE< IM7.GT. (0.0 J J  THEN 
PHZ-PI/2.0- 

ELSE  IE( IM7.LT. 10.0)1  THEN 

PHZ»-P 1/2.0 

ELSE 

PHZ-0.0 

END  IE 

END  IE 

EVALUATE  MODIFIED  HANKEL  FUNCTIONS 

IE ( PH7 .GE.-P 13 )  THEN 
K1A-ALPHA«EXI*CEICJ*SUMCKM/7ER 
K1E— IMXI 

IE( (REAL(*1 A).EO.0.0).AND.(AlPAG(KtA).EP.0.0) )  KiE-0.0 

DKi»-ALPPA*I«7FR#FXI«CEirj*SLTPKP 

DK1E--IMXI 

IE( (PEAL(DKiA).EC.o.O>.AND.(AIMA(;(DKiA) .EC.o.O) >  DKlE"0.0 
ELSE 

IE(  I  MV  I. GE. 0.0)  THEN 
ESM«-2.0*IPXI 
IF(ESM.GT.-85.0)  THEN 
»EEXP»EXP(ESM) 

ELSE 

REEXP-0.0 
END  IE 

KlA«ALPHAMCE2CJ*$UMCKP/EXWEXT*CElCJ*SUPCKM*REEy«>)/7FP 

X1E»IP»I 

IF  C  (PEAL(*1  A).EO.o.O>.*^,,,.I  AIPAG(KIA)  .EQ.O.O>  >  ElE-0.0 

DK1*»ALPHA*I*7ER«(EXI«CE 1CJ*SUMDKP«REEXP-CE2CJ*SUMPKM/EXI ) 
DKIE-IMXI 

IE( (REAL(DXlA).EC.O.O).ANr.( AIMAG(DK1 A) .EC.O.O) )  HKIE-0.0 
ELSE 

ESM«2.0*IMXI 
IEIESM.GT.-85.0)  THEN 
REEXP«EXP(ESM) 
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167 

166 

169 

170 

171 
17? 

173 

174 

175 

176 

177 
176 

179 

180 
161 
16? 

163 

164 

165 

166 

167 

168 
169 

190 

191 

192 

193 

194 

195 

196 

197 
196 

199 

200 
201 
20? 

203 

204 

205 

206 
207 
206 

209 

210 
211 
212 

213 

214 

215 

216 
217 
216 

219 

220 
221 

222  C 

223 


ELSE 

R£FvP-0.0 
END  IF 

K1  A«ALPH/U(CE2CJ«SlMCKP*BFEXP/E*I*EXI*CElCJ*Sl'>'n<M)/->FP 

K1E--IPXI 

IF<fRFAL(KlA>.EO.O.O>.ANP.<AtHAG(KlA).EG.O.n>>  KlF*0.0 
DKlA-ALPHA«I*7FR*(EXl*CElf J*FUP0KP-CE2CJ*SUMrKH*RFEXP/E*!  > 
OKIE--!**! 

IF<(PEAL<OKlA».EC.ij.O>.ANr.(A!PAG(rKiA>.EC.n.O>>  PI<lE  =  n.O 
ENT)  IF 
END  IF 

IF (PH7.GT.PI3)  THEN 
K2A«ALPHA«CEl*S(JHCKP/(7FR*EXI  ) 

K2E-IHXI 

IF< (REALI*2A>.EG.0.0> .AND. ( AIHAG(K2A  l.EO.0.0  >  >  K2E-0.0 

DK?A»- ALPHA  *!*ZFR*CEl*St.lHFKH/EVt 

DK2E-IHXI 

IF  (  (RFALI0K2A)  .EC.0.01  .ANp.  (  AIVA<51EK2A).EC.0.0))  PK2E«n.O 
ELSE  IFIPH7.LT.-PI3)  THEN 

K2A«-ALPHA*eXI*CE2*S'JHCKM/7FR 

K2E—  IPXI 

IF< (REALIK2A) ,E9.0.0».ANP. ( AIHAGIK2A  )  .EQ.O.O)  >  K2E-0.0 

DK2A*«ALPHA*l*7FR*EXI*CE2*SUHtXP 

DK2E--IMXI 

!FUREAL(BK2A».E0.0.0».ANp.(AIMAG(DK2A)  .EC.O.Ol  >  PK2E-0.0 

ELSE 

IF( IHXI.GE.O.O)  THEN 
ESN— 2.0MNX1 
IF(ESP.GT.-85.0l  THEN 
REEXP-EXP(ESM) 

ELSE 

REEXP-0.0 
END  IF 

K2A.ALPHA«(CE1*SII*CKP/Ex!-rEExP*CE2«EXI*SI!PCK:h}/7Fr 

K2E-IPXI 

IF( (REAL <K2A l.EO.0.0 >. AND. I  A  IP AR(K2A).EO.0.0l >  *2E-0.0 

DK2A»-ALPHA*!«7FR*<CEl*StJMDKH/EXUREEXP*EX!*CE2«SUMpKP) 
DK2E-IHXI 

IF((REAL(DK2A).EO.o.0) .ANp.( AIPAG(CK2A) .EC.o.O)  >  PK2E-fi.O 
ELSE 

ESM-2 .0* IMX I 
TF(ESH.GT.-65.0)  THEN 
REEXP-EXP(FSM) 

ELSE 

REEXP-0.0 
END  IF 

E2A-ALPHA*(CE1*REEXP*SUPCKP/EXI-EX  I*CE2*SU*CKF ) / 7FR 
K2E--IHXI 

IF( (RFAL(K2A) .Efl.O.Ol.ANP.I AIHAG(K2A) .EO.O.Ol »  *2E-0.0 

DK2A--ALPHA«I*7FR*(REEXP#r:E)  *SUMPFM/EXUEXI«rE2*SUMDKP) 
DK2E—IMXI 

IF( (RE AL ( D«2A > .EC.o.O> .ANr. (A  IHAG(nK2A»  .EC.o.O>  >  PK2E«n.O 

END  IF 

END  IF 

END  IF 

RETURN 


END 


SUBROUTINE  KH  ATX  (  0  1  1  .KHA  1 .  KHEl  .  *W  A2  .  KHF2.  PK*-  *  I  »  TKHF  I  *  DFHA7.  rXHE2 ) 


1 

2  C 

3  C  THIS  SUBROUTINE  CALCULATES  THE  NOTIFIED  HANSEL  FlNCTloU 

4  C  COMBINATIONS  KHATi(Qll),  KHaT2(C11>.  AND  THEIR  DERIVATIVES 

5  C 

6  C  SUBROUTINES  USED*. . 

7  C  KMNFLX.CADD.CTANH.CSECH2 

a  c********** 

9  IMPLICIT  DOUBLE  PRECISl0N*6  (A-H.O-7) 

10  DOUBLE  PREC I S 1 ON. 6  KHE1.KMF2.N0EL2 

11  COMPLEX  I  »G  1  l*KtJAl»KHA2»OKHAl,r*fHA2»0l  1  A  1 .0  I  I  A2  .  P«  1  t  A  1 »  DC  1 1  *  2. 

12  *  CMl'.OCMU.SGNG.BETASO.FAC.XAA.TPA.XCA.CSDPT.CTANH.CSECl^. 

13  *  GAP»HTAN.HSEC2.CllSR»7.7SC,A»B»rA*DD.A0»A2.AA,A6.A6,Ai0» 

14  »  Bl.B3.85.B7.B9.Bl t.nAO.nA?»DA4.DA6,DAfl.Do.Dl.P3.05.D7.rs 

15  EXTERNAL  CTANH.CSECH2 

16  COMMON /COP TWO /FT AARS.ALPHAl.H.Cl  1 ,  S2N'G 

17  COMMON /C0PTHR/72.73.A2PAG.ALPHA3.NAVEN0.AL  PH  A  2 

IS  COMMON /COMFOR/DELT A, KOEL2.RN0NG 

19  COMMON /COMF IV/A0,A2*A3,A4,A6,A7.A8.A10,A1  1 

20  COMMON/COPSIX/BO,Bl.B3.P5.P7,P9»P| 1 

21  COMMON/COPSEV/D AO.DA 1,0A2,DA4.EA5»DA6,DA8»t'A5 

22  COMMON/COME IG/DO. Cl. 03,05. 07. T9 

23  COMMON /CONN  IN/ 1 NTCHK 

24  DATA  1/(0. 0,1.0)/ 

25  DATA  SPALL/O. 707106671 190-1/ 

26 

27  C  CALCULATE  MODIFIED  HANKEt  FUNCTIONS  NEEDED 

26  C 

29  CALL  "HNKLx<<Hl.imAl.QllEt,auA2,eilE2.0CllA|,ncilEl. 

30  *  DOU  A2.DG1  IE2) 

31  C***** 

32  C  CALCULATE  Mu (Oil)  AND  ITS  DERIVATIVES 

33  C 

34  C 

35  C  *** 

36  C  BECAUSE  oF  THE  DISCONTINUITY  IN  KMAT  (.311  »  AT  RE(Cll)«0  WHEN 

37  C  DELTA  IS  NOT  EOUaL  TO  ZERO.  WHEN  DOING  THE  mope  SEARCH  WE 

36  C  HAVE  TC  FORCE  KHaT(Ch)  TO  BE  ON  THE  »CORRFCT  rRaNCH.  WHEN 

39  C  SEARCHING  THF  RECTANGLE  WITH  LEFT  hand  SITE  RE(Cii)-o  and 

40  C  WHEN  SFARCHING  The  RECTANGLE  WITH  RIGHT  hand  site  RE(Oll>*0. 

41  C  THE  FLAG  »INTCHK»  FROM  THE  main  PROGRAM  IS  USED  FOR  THIS 

42  C  PURPOSE1. 

43  C  *** 

44  C 

45  IF(RFAKOll).GT.O.O)  MDEI.-l 

46  IF ( (REAL (Oil  )  .EO.O.O ) .AND. ( ( INTCHK.EO.O ) .OR. ( INTCHK.E0.2)  ) )  MDEL* 1 

47  IF(PFAL<011).LT.0.0)  MDEL-0 

46  IF( (REAL (OJ 1 ) .FO.O.O).ANr.(INTCHK.E3.1 » I  PTEL-0 

49  If(MOEL.EO.O)  THEN 

50  C 

51  C 

52  BFTASC«1 .0*I«ETAABS-ALPHA1«H-CU#CI  1*31  J 

53  EAC«CSPRT(SGNG-BETAS0) 

54  CMU—I«FAC»RNONG/CU 

55  0CMU»-I«C11*RN0NG/(2.0*FAC) 


1 


56  END  IE 

57  C *** 

56  C 

59  IF(MOEL.EG.l)  THEN 

60  C 

61  C 

62  I F  <  CELT A  . EG. 0 •  0 1  THEN 

63  bftasg«i.o+i*etaaps-alphai*h-ci i*ci i*an 

64  FAC«C$CRT(SGNG-BETASO> 

65  CMU— I*FAC*RN0NG/C1 1 

66  DCMU»-l*Cll*RN0NG/<2.0*FAC> 

67  C 
66  C 

69  ELSE 

70  C 

71  C 

72  011SR«CSGRT(Gin 

73  GAM«KDFL2*Cll*Cll*011 

74  C 

75  C 

76  IF(  (REAL  (01 1  l.LT.SMALL)  .AND.  (AINAG(011  )  .LT.Sf'ALL  )  >  THFN 

77  C 
76  C 

79  7*Cll*011SR 

60  7SQ«CU*Cll*Qll 

61  A»A0*7SC*(A2*7*<A3*7*<A4*7SG*(A6*I*(A7+7*( A8*7SG*(  A  10  +  7* An  ))))))) 

62  B«80*7*<ei*?$O*(B3*7SG*<e5*7SC*(R7*?S0*(P9*7SO*Bll)  )  )  1  ) 

63  DA»OAO*7«(OAl*7*(DA2*7SO*(rA4  +  7*(!)A5  +  7.(DA6*7SO*(DA8  +  2«ni5)  )  )  )  )  ) 

64  DB«(t0*7SQ*(Dl*7SQ*f03+7SO*(DE*7S0*(r7  +  7SO*n<5)  )  )  )  >/7 

65  CHU»-l*A/(B*Ctl> 

66  DCMU«(-I/Cll l*(DA/B-A*DB/(e*B)  J 
87  C 

68  C 

69  ELSE 

90  C 

91  C 

92  BETASQ»1.0*l*ETAABS-ALpHAl*H-Cll*Cl 1*011 

93  FAOCSCRT(SCNG-BETASO) 

94  HTAN.CTANH(GAM) 

95  A«C1I*C11SR*HTAN*FAC*RN0NG 

96  B»1.04FAC*RN<)NG*HTAN/<Ql 1SR*C11 > 

97  HSEC2-CSECH2(GAM> 

96  DA»HTAN*C1 1/ (2.0*0 1 1  SR )+kDfL2*ALPHA 1*011 SR*NSEC2/W A VEHO 

99  S  ♦C11*CH*RN0NG/(2.0*FAC) 

100  DB»RNONG*(-FAC*HTAN/(2.0*C1 1*01 1*01 lSR)*Cl 1*NTAK/(2.0*FAC*C1 1SR) 

101  %  ♦C11*FAC*KDEL2*HSEC2/'3I1SR) 

102  CMU»-I*A/(n.Cl 1 ) 

103  DCMl)»(-I/C!  1  )*(DA/R-A*DP/(B*pn 

104  ENn  IF 

105  ENn  IF 

106  FNP  IF 

107  r***** 

106  C  CALCULATE  KHATl(Oll).  FHAT2 (011  ) »  AND  THEIR  DERIVATIVES 

109  C 

110 


1 


■4 


X  A  A*CMi*Gl  1  A  l 


Ill 

Y*F«r i i p  j 

11? 

C*ll.  rABtlKMAl.H-FUrieilM.rrim.VAA. 

'*  A  F  ) 

113 

YAA«CM.*C1  1  A2 

114 

YAPbC) IP? 

115 

CALL  CAEE(tfHA2-"l-F2»1T?1  1  A?,  OF  1 1E2.7AA, 

Y  AF  ) 

116 

yaa*cm  *roi  I  A1 

117 

YAFmPCl  1 F  J 

118 

xi?A«rirKii*oi  i  a i 

119 

YRFaC  j jPj 

120 

CALL  rADPfYrA,YrF,YAA,YAF,YBA,y=>F) 

121 

Y  A  A  *“ P 1 1*01 1  A) 

12? 

YAP»ri  ] p  i 

123 

CALL  rACniCK^Ai.rKHEl.VAA.YAF.YCA.Vcn 

124 

YAA«r^t  *C01 1 A2 

125 

YAFbTC 1  IE? 

126 

YPABTr^U*? 1 1 A2 

127 

v^IFbC  t  1  E? 

128 

CALL  CAtr{VCA*Yrr#YAA»VAE.Xt3A.XaE) 

129 

VAAb-ci 1*01 1 A2 

130 

YAE*o  n  P? 

131 

CALI.  CADE  <rKHA?,PKl-F?,  YAA,  YAF,  YCA.YCF  ) 

13? 

9ETLIPL 

133  C**- 

M* 

134 

ENn 

1  FUNCTION  CTANHI7) 

2  C****»»*«*« 

3  C  THIS  FUNCTION  SUBROUTINE  EVALUATES  TANHI?)  FOB  fCNPLFX  ? 

4  C********** 

5  IMPLICIT  DOUPLF  PRECISION^  (A-I-.0-7) 

6  COMPLEX  CTANM.7.7SC.E.EINV.CEXP 

7  EATA  SMALL/O. 707 1 0687 1 1 9E- 1 / 

8  TATA  El. C3.05. 07. 09/1.0.-0.33333333333*0. 13333333333. 

9  «  -0.53968 25 3968E-1.0.21869488536E-1/ 

10  IF( (B A6S  <  REAL  <7 )  )  .GT.  SMALL  1  .Or  .  (  OAFS  <  A  IMAG  I  7  >  )  .C-T.  SMALL)  )  TFEN 

11  E-CEXPI?) 

12  F I NV* 1.0/E 

13  CTANN»(E-FINV)/(E*EINV) 

14  ELSE 

15  7SQ-7.7 

16  CTANP«7*(ni+7SO*(r3N7S0*(n5  +  2Sc*(O7  +  7S0*n9)  )  )  ) 

17  END  IF 

18  RETURN 

19  END 
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vOO»NJ<*cn*fcGJM»- 


1 

2  C* 

3  C 

4  C 

5  C 

6  C 

7  C 

8  C 

9  C 

10  C 

11 
12 

13 

14 

15 

16 
\7 
18 

19 

20 

21  C 

22  C 

23  C 

24  C 

25  C 

26  C 
2  7  C 

28  C 

29 

30  C 

31 

32 

33 

34 

35  C 

36  C 

37  C 

38 

39 

40 
^41 

42 

43 

44 

45 

46 

47  C 

48  C 

49  C 

50 

51 

52 

53 

54 

55  C 


SUBROUTINE  FCTVLXK  I  18.Df7A.DETE  ) 


THIS  SUBROUTINE  EVALUATES  THE  McP  AL  FUNCTION  » "ET (CELT  A  I  0 1  1  )) * 

THE  VALL'FS  ARE  RETURNED  AS  A  COMPLEX  AHPLITLTF  »CET*»  AND  A 
REAL  EXPONENT  »OETE».  THE  VALUE  OF  THE  NOPAL  FUNCTION  IS  THEN 
»DET< DELTA (Q1 1 >) *DET A*EXP I OETE >  » 

SUBROUTINES  USEO  -  HNKLX.KHNKLX.C ADC.KHATX 


implicit  double  precision^  u-h#o-?i 

DOUBLE  PREC I S  1 0N*6  KHE1 »*HE2 

COMPLEX  Gll.0l2.022.023.C33. I. SONG. Cl IS. 

*  KHAl.KHA2.DKHAl.DKHA2.<3i2At.P!2A2.nOl2Al,rOi2A2. 

*  02PAl.Q22A2,n(322Al.D022A2.C?3A1.023A2.CC23Ai.r023A2. 

«  Q33 A  1.033 A2.0Q33 A 1.D033A2.TA.TB.7ETA.PS!. 

9  XKA,XKB,PKA,PKe,CH!,PH!»PETA 

COMMON /COMONE /Cl ,C3.C4,C5.C6.C7.C8.C9.SGN*2 

comhon/comtwo/ftaabs.alphai.h.ci l.SCNG 

DATA  1/(0. 0.1.0)/ 


EVALUATE  012. 022. C23. 033 


THE  FOLLOWING  STATEMENT  SHIFTS  Gil  IN  ORDER  TO  AVOID  HAVING  A 
MESH  LINE  ON  THE  REAL  AXIS.  THIS  SHIFT  IN  Oil  IS  COMPENSATED 
FOR  IN  THE  MAIN  PROGRAM. 

011*0118-1*0.003 

012*01 1*C4 
022-C5*Cl 1*C6 
023*C5*C 1 1 *C7 
033*C8*C11+C9 

evaluate  modified  hankel  functins  needed 

CALL  FINELY (O12.0i2Al,012El.0l2A2,Ql2E2.D012Al.EC12El, 

*  DC  12 A2. DC 12E2  1 

CALL  NHNKLX(022.022Al.Q22El,022A2,022E2.DG22Al.CC22El.D022A2. 

*  DQ22F2) 

CALL  KHNKLX(023.G23A1,023E1.0?3A2.G23E2,DGP3A  1.CC23E1. 

9  DP23A2.DG23E2) 

CALL  HNKlY(033.033Ai,'333El.033A2.033E2.D033Al.DC33El. 

9  D033A2.D033E2) 

CALL  KMATYIOl l.KHAl.KHEl.YHA2.KHE2.DKHAl.rKHEl.DKHA2,DKHE2) 

EVALUATE  7ET A ( 0 1 1 ) 

TA*012A2*KHA1 

TAE-C12E2HKHE1 

TB*-01?A1*KHA2 

TBF*C12E1*KHE2 

CALL  CACD(7ETA,7ETAF,TA.TAE.,TE.TBE) 


3 
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EVALUATE  PSIlOll) 


56  C 

57  C 

56  TA»0C12A2*KNAI 

59  TAE»0G12E2*KHEl 

60  T5—D012A1*KHA2 

61  TBE-DP12E14KHE2 

62  CALL  CADD<PSI,PSIE#TA,TAE,TB»TPE> 

63  C 

64  C  FVALUATF  HqEIFIEB  HANKEL  FUNCTION  COMBINATIONS  NFEOEC  Fo* 

65  C  CALCULATING  CM  I  C  0 1 1  )  ANTI  PHI(Cn) 

66  C 

67  TA»0Q22A1*Q23A2 

66  TAE-0P22E1+C23E2 

69  TB— DP22A2*G23A1 

70  TBE-D022E2+C23E1 

71  CALL  CABD(XKA*VKAE,TA#TAE»TB.TPE > 

72  TA»DC22A1*DC23A2 

73  TAE-0022E1+D023E2 

74  TB«-B022A2*D023A1 

75  TBE-DC22E2+D023E1 

76  CALL  CADD(XKB,XKRE,TA,TAE»TB,TPE> 

77  TA«022A1*023A2 

76  TAE-C22F1+023E2 

79  TB>-022A2*023A1 

60  T8E«022F2+023El 

61  CALL  CADD(PKA,PKAE,TA»TAE»T8.TeE) 

62  TA«022A1*0023A2 

63  TAE-Q22E140023E2 

64  TB»-022A2*0023A1 

65  TBE-022E240C23E1 

66  CALL  CADD(PKB.PKRE,TA,TAE.TB.TBE> 

87  C 

88  C  EVALUATF  CHI (Dill 

69  C 

90  TA-nQ33A2*XKA 

91  TAE-DG33E2+XKAE 

92  TB«SGNA2*C3*033A2*XKB 

93  TBE.G33F24XKBE 

94  CALL  CACD<CHI»CHIF#Ta.TaE*TB.TBF» 

95  C 

96  C  EVALUATE  PHI (01 1 1 

97  C 

96  T*«no33A2*pKA 

99  TAE.13Q33E24PKAE 

100  TB«SGNA2*C3«033A2*PKB 

101  TBF.033F24PKBF 

102  CALL  CADD(PHI#PHIE»TA#TAFaTB»TBE) 

103  C 

104  C  EVALUATE  »DET<BELTA(011 n * 

105  C 

106  TA-SGNA2*Cl*ZETA*CHl 

107  TAF.7FTAE4CHIF 

106  TB-PSI*PHI 

109  TBE-PSIE+PHIE 

110  CALL  CADD(DETA#0ETE,TA,TAE,TB.TBE> 

111  0ET«*«PNA7*DETA/C3 

112  PFTUBN 

113  C***«* 


SUBROUTINE  FDF0TX<G1 lS.DETA.PETE.PETPA.DETPE) 


1 

2  C 

3  C  THIS  SUPffOUTINE  EVALUATES  * PET < TFLTA ( Cl  1) > » 

4  C  AND  ITS  DERIVATIVE  WITH  RESPECT  TO  Oil 

5  C 

6  C  THESE  VALUES  ARE  RETURNEE  AS  A  COMPLEX  AMPLITUDE  AND  A 

7  C  REAL  FXpCNENT.  WE  HAVE 

6  C  OFT<DELTA<Ol H ) «DETA*E XP < DETE ) 

9  C  <DET<0ELTA<OU > >> '*DETP A*EVP < DETPE ) 

10  C 

11  C  SUBROUTINES  USED  -  HNKLX.KHNKLX.CAPr.KHAT y 

12  C. **•*«**.« 

13  implicit  double  prfcision*«  <a-h,o-?> 

14  DOUBLE  PREC I S  I0N*6  KHEI.KWE2 

15  COMPLEX  Ol I.GI2.Q22.Q23.G33.  I.S0NG.51 lS, 

16  *  KHAl,KHA2,nKHAl,DKMA2,«?l2Al.Ql2A2,P0l2Ai,rr!12A2. 

17  *  Q22Al,022A2,0G22Al,DQ22A2.C23Al»Q23A?.I,C?3Ai.r.?23A2, 

16  9  033Al,033A2,D033Al,Dri33A2,TA,Tn#TC,TD,TE,TF,TG, 

19  *  7ETA»PS!,D?ETA.DPSI,XKA»XKP,PKA. 

20  *  PKP,XKAP,XKBP,XKCP,XKCP,CHI,PHI,rCHI,nPH»nETA,nETPA 

21  C0MM0N/C0M0NE/C1,C3,C4,C5,C6.C7»C8,C9,SGNA? 

22  COMMON /COPT WO /ET  AA8S, ALPHA!, W#Cl t.SPNG 

23  DATA  !/<0. 0,1.0)/ 

24  C*«**« 

25  C  EVALUATF  <312,022.023,033 

26  C 

27  C 

26  c  the  following  statement  shifts  mi  in  order  to  avoid  having  a 

29  C  MFSH  LINE  ON  THE  REAL  AXIS.  THIS  SHIFT  IN  Cll  IS  COMPENSATED 

30  C  FOR  IN  THE  MAIN  PROGRAM. 

31  C 

32  Q11-0I 1S-I*0.003 

33  C 

34  0 1 2»C 1 1 *C4 

35  022-C5*Cl 1+C6 

36  023-C5«Cl 1+C7 

37  033-C6-C11+C9 
36  C 

39  c  evaluate  modified  hankel  functions  needed 

40  C 

4 1  CALL  MHNKLx<(3l2.O12Al,0l2Ei,012A2.Ol2E2.nci2Al,Cct2Fl. 

42  ♦D012A2.r0l2F2) 

43  CALL  FHNKLX(022.<?22Ai,022Ei,i322A2,022E2»DG22A1,CC22Ei. 

44  *  D022A2.D022E2) 

45  CALL  MHNKLX<Q23.023Al»023Ei,G?3A2,P23E2.D023Al,tC23El. 

46  «  D023A2.DP23F2) 

47  CALL  HNKLX<033.033Al,033El,033A2,033E2.D033Ai»DC33El. 

46  9  nC33A?,DC33F2) 

49  CALL  WpaTX<Gi i,KHAl,KHEl.KHA2.KHE2»DKHAl»rKHEi.CXHA2,DKHE2) 

50  C 

51  C  EVALUATE  7ETA<011) 

52  C 

53  TA»012A2*KHAI 

54  TAE-812E2+KHEI 

55  T8«-012A1*FHA2 
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i 
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Aa 
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1 
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56  TBE-C12F1+KHE2 

57  C*LL  CABD<ZFTA.7ETAE.TA.TAE.Tp.TnE> 

58  C 

59  c  evaldatf  ps i ( qi n 

60  C 

61  TA»nci2A2*KHAl 

62  T*E-D012E2+KHE1 

63  TB«-nC!2Al*KHA2 

64  TBE«BG12F|+KHE2 

65  CALL  CADDIPSl.PSIE.TA.TAE.TB.TPE) 

66  C 

67  C  EVALUATF  2ETAM01 1  ) 

66  C 

69  TA«DC12A2*KHAl 

70  TAE-B012E2+KHE1 

71  TS»012A2*BKHA1 

72  TBE-012E2+DKHE1 

73  CALL  CABDITC.TCE.TA.TAE.TP.TBE) 

74  TA—0012A1*KHA2 

78  TAE-B012E1+KME2 

76  TB«-Q12A1*D«HA2 

77  TBE-012E1+DKHE2 

76  CALL  CADDITD.TDE.TA.TAE.TB.TBE) 

79  CALL  CADDID7ETA.07ETAE.TC.TCE.TD.TDE) 

60  C 

61  C  EVALUATE  P9IMQ11) 

82  C 

69  TA—Q12*012A2*KHA1 

64  TAE«012E2*KHEl 

68  TB>D012A2*DKHA1 

66  TBE-0012E2+DKHE1 

67  CALL  CADDITC.TCE.TA.TAE.TP.TBE) 

86  TA«012*C12A1«KHA2 

69  T  AE*0 1 2E 1 ♦KHE2 

90  TB--D012A1«DKHA2 

91  TBE-D012E1*DKHE2 

92  CALL  CADD(TD.TDE.TA.TAE*TB.TBE) 

93  CALL  CADDIDPSI.OPSIE.TC.TCE.TE.TOE) 

94  C 

98  c  evaluate  modified  hankel  function  combination  neoed  fop 

96  C  CALCULATING  CHI  (  G  1 1)  ,CHI  *  {  C  1 1  )  .PHI  (C  1 1)  AND  PHlMCll) 

97  C 

96  TA«0Q22A1*Q23A2 

99  TAE»B022F 1+C23E2 

100  TB—PC22A2*023A1 

101  TBE-DC22E2+023E1 

102  CALL  CADB(VKA.XKAE.TA.TAE.TB.TBE) 

103  TA»0<322A1«DQ23A2 

104  TAE«BC22El*D923E2 

108  TB—rC22A2*D923Al 

106  TBF«rC22E2*0Q23El 

107  CALL  CADDIXKB.XKBE.TA.TAE.TB.TPE) 

108  TA«iJ22Al«Q23A2 

109  TAF-022E1+023E2 

110  TB»-022A?*023A1 
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U1  TBE-G22E2+Q23E1 

112  CALL  CADE(PKA,PKAE.TA*TAE,TB,TBE> 

113  TA-Q22A1*DQ23A2 

114  TAE»G22El ♦D023E2 

115  TB»-G22A2*DQ23A1 

116  TBE-G22E2+DQ23E1 

117  CALL  CADD«PKB»PKBE»TA*TAE»TB#TPE> 

118  TA-C22A2*Q23A1 

119  TAE*G22E2*G23E1 

120  T8--C22A1*Q23A2 

121  T9E-G22E14G23E2 

122  CALL  CADD<XKAP*XKAPE.TA.TAE.TB.TBE» 

123  TA»nG22Al*DQ23A2 

124  TAE-PC22E1+DQ23E2 

125  TB—DC22A2*DG23A1 

126  TBE»EC22E2*DG23E1 

127  CALL  CADDIXKBP.XKBPE.TA.TAE.TB.TBE) 

128  TA-C22A2*DC23A1 

129  TAF-G22E2+DG23E1 

130  TB«-G22A1*DG23A2 

131  TBE-022EUCG23E2 

132  CALL  CADD<XKCP»XKCPE»TA*TAE.TB»TBE) 

133  TA-EG22AP*C23A1 

134  TAE-PC22E2+G23E1 

135  TB— DC22A1*Q23A2 

136  TBF-DG22E1+023E2 

137  CALL  CAODlXKDP,XKDPE,TA.TAE*TB,TBE> 

138  C 

139  C  EVALUATE  CP1C011) 

140  C 

141  TA>1JG33A2*XKA 

142  TAF-DG33E2+XKAE 

143  TB»8GN A2*C3*Q33A2*XKB 

144  TBE«Q33E2*XKBE 

145  CALL  CADD<CHI#CHlE.tA,TAE,TB.TBE) 

146  C 

147  C  EVALUATE  PHI(GU) 

148  C 

149  TA-E033A2*pKA 

150  TAE«DC33E2*PKAE 

151  TB»8GNA2*C3*033A2«PKB 

152  TBE-033E2+PK8E 

153  CALL  CADDlPMr,PMIE,TA*TAE,TB.TPE) 

154  C 

155  C  EVALUATE  CHIMQtll 

156  C 

15  7  TA—033*C8#033A2#XKA 

158  TAE>033E2*XKAE 

159  TB>C5«CG33A2*022«XKAP 

160  TBE.DG33E2«XKAPE 

161  TCaC5«E033A2«XKBP 

162  TCE"D033E2*XKBPE 

163  TD«S6NA2*CS*C6*DQ33A2*XKB 

164  TDE»DC33t2*XKBE 

165  TE>9CNAt«C3«C5*033A2*022*XKCP 


152 


166 

167 

166 

169 

170 

171 
17? 

173 

174  C 

175  C 

176  C 

177 

178 

179 
160 
161 
162 
183 

164 

165 
186 
167 

166 

189 

190 

191 
19? 

193 

194  C 

195  C 

196  C 

197 

198 

199 

200 
201 
202 

203  C 

204  C 

205  C 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 
217 
216 

219  C< 

220 


TEE-033E24XKCPE 

TF«9GNA2*C3*C5»Q33A2*023*XKDP 

TFE-Q33E2+XKDPE 

CALL  CADD(TC*TGE.TA,TAE*TB.TBE> 

CALL  CADD ( TA#TAE#TG#TGE#TC»TCE) 

CALL  CADD 1 TB«TBE»TA*TAE#TD*TEE  > 

CALL  CADD(7A.TAE.TB,TBE*TE.TEE> 

CALL  CADD1DCH1,DCHIE.TA,TAE.TF,TFE) 

EVALUATE  PHIMOlll 

TA— 033*C8*Q33A2«PKA 
TAE-C33E2+PKAE 
TB-C5*CG33A2«XKA 
TBE-DC33E2+XKAE 

CALL  CADO(TC.TCE,TA,TAE,TB,TBE> 

TA-C5*CG33A2*PKB 

TAF-DC33E2+PKBE 

CALL  CADD(TB,TBE,TA,TAE,TC.TCE> 

TA«SGNA2*C3*C8*DC33A2*PKP 

TAE-DC33E2+PKBE 

CALL  CADD(TC»TCE»TB#TBE#TA*TAE) 

TA-SGNA2*C3*C5*033A2*XKP 

TAE-033E2+XKBE 

CALL  CADD(T0.TRE.TC*TCE*TA.TAE1 
TA— SGNA2«C3*C5*G33A2*023*PKA 
TAF-033F2+PKAE 

CALL  cadd<dphi»dphie#tb*tpe#ta.tae» 

EVALUATE  DET ( DELTA ( 01 11 > 

TA-$GNA2«C1*ZETA«CM 

TAE-2ETAE*CHIE 

TB-PS1*PH! 

TBE»PS IF*PH  IE 

CALL  CADD1DETA,DETE,TA,TAE*TP,THE) 
DETA-SGNA2*DETA/C3 

EVALUATE  (DET (DELTA ( Ol 1 >  >  >  * 

TA«SGNA2*C1*DZETA«CHI 

TAE-D7ETAE+CHIE 

TB«9GNA2*C1«ZETA*DCHI 

TBE-7FTAE+DCHIE 

CALL  CADD(TC»TCE,TA#TAE.TB,TBE> 

TA«DP8I«PHI 

TAE-DPSIE+PHIE 

TB«PSI*DPHI 

TBE-FSIE+DPHIE 

CALL  CADD(TD.TDE.TA#TAE.TB»TBE) 

CALL  CADD (OETPA*DETPE#TC»TCE*TD#TDE ) 

DETPA-9GNA2*DETPA/C3 

PETUPN 


1  SUBROUTINE  F7EROX(TLEFT,TRIGwT,TPOT»TTOP»TMSwO.TCL.mPRINiT,7ERCS, 

2  «  NRZ) 

3  C  FOR  ROOT-FINDER 

4  C  THIS  VERSION  UPDATED  TO  MODIFY  RMA  X  AND  TMESH.  JAN  t  19(92. 

5  C  FZEROS  IS  A  ROUTINE  FOR  FINDING  THE  ZEROS  OF  A  COMPLEX  FUNCTION,  F, 

6  C  WHICH  LIE  WITHIN'  A  SPECIFIED  RECTANGULAR  REGION  CF  THF 

7  C  COMPLEX  (THETA)  PLANE,  PROVIDED  THE  FUNCTION  WAS  NC 

a  c  POLES  IN  THE  VICINITY  OF  THE  RECTANGLE. 

9  C  EXPLANATION  OF  PARAMETERS  — 

10  C  TI.EFT  -  VALUE  OF  REAL  Part  of  theta  at  left  etce  OF  PFCTaNGLE. 

11  c  TRIGHT  -  value  OF  REAL  PART  OF  THETA  AT  RT  EDGE  OF  RECTANGLE. 

12  C  TROT  -  VAL'<E  OF  IMAG  PART  OF  THETA  AT  POTTO”  EDGE  OF  RECTANGLE. 

13  C  TTOP  -  VALUE  OF  IMAG  PART  OF  THETA  AT  TCP  EDGE  OF  RECTANGLE. 

14  C  TMESN  -  SET  EQUAL  TO  APOUT  HALF  THE  AVERAGE  SPACING  BETWEEN 

15  C  7ER0S  WITHIN  THE  RECTANGLE.  A  SMALLER  VaLUE  MAY  be  L3E"1 

16  c  as  a  safety  measure,  rut  too  small  a  value  hill  result 

17  C  IN  EXCESSIVE  RUN  TIME. 

ia  C  TOL  -  TOLERANCE  TO  WHICH  ZEROS  ARE  TO  PE  FOUNT .  IF  TWC 

19  C  ZEROS  ARE  CLOSER  THAN  *TOL',  THE  RCOT-FINDEP  WILL  STOP 

20  C  WITH  AN  ERROR  MESSAGE. 

21  C  MPRINT  -  NORMALLY  SET  TO  ZERO.  A  NON-ZERO  VALUE  LEADS  TO 

22  C  PRINT-OUT  FOR  CEPUGGIN'G. 

23  c  zeros  -  output  list  of  (complex*  values  of  thfTa  at  which 

24  C  7ER0S  ARE  FOUND. 

*0  C  NR  7  -  THE  NUMBER  OF  ZEROS  FOUND. 

•0  C  SUtROUTlNES  TO  BE  PROVIDED— 

27  C  FCTVLX<7.F,FE>  -  TO  RETURN  THE  VALUE  OF  THE  FUNCTION,  F*EXP(FE>, 

20  C  AT  THE  POINT  IN  THE  COMPLEX  PLANE  SPECIFIFD  PY  7. 

29  C  FDFDTX(7,F,FE»DFtT,DFDTEI  -  SAME  AS  'FcTVL*»  EXCFPT  THAT  THE 

30  c  derivative,  dfct*exp<dfdte),  OF  THE  FUNCTION  WRT  Z  MUST  ALSO 

31  C  BE  RETURNED. 

32  C 

33  implicit  double  precision  ia-h.o-7) 

■34  COMMON /NEWMSH/NEWMSH 

35  COMMON/TMC  COM/TMESH 

30  C 

37  DIMENSION  7FR0SI2.1) 

30  COMPLEX  F.PREV  F,FO0,Fl0.F01.Fl 1, PARTS 

39  DIMENSION  PART<2>.S0L<2l*THETA«2> 

40  DIMENSION  K  EOGEK50»«*  EDGE2<50>.*  EDGE3»50>.N  EDGE4(50» 

41  EQUIVALENCE  (PARTI  1 1, PARTS) 

42  MAXNSO-MAXo< I  NT ( 4 . 0« < TTOP-TPOT ) /TMSHO > , I  NT ( i . o* ( TR I GHT-TLEFT ) 

43  9  /TMSHO)) 

(4  MAXNT"? 

45  C 

46  C 

47  IF  (MPRINT. NE.O)  WR  I TE < 1 1 » 906 1 

46  90S  FORMAT  (*1*J 

49  C 

50  TMESH  ■  TMSHO 

51  NT  I  ME  ■  0 

52  GO  TO  7 

53  5  TMESH  ■  TMESH/2.0 

54  NT  I  ME  •  NTINEM 

55  IF  (NTIME  .GT.  MAX  NT)  GO  TO  97 


154 


56 

57 
56 

59 

60 
61 
62 

63 

64 

65 

66 
67 
66 

69 

70 

71 

72 

73 

74 

75 

76 

77 
76 
79 
66 
61 
6t 
69 

64 

65 


67 

66 

69 

90 

91 

92  C 

93 

94 

95 

96 

97 
96 

99 

100 
let 
102 

103 

104 

105 

106 
107 
106 

109 

110 


NEWMSN  ■  0 

sices  of  rectangle  in  tmesh  units 

JLT-INT(TLEFT/TMESH> 

IF1TLEFT.GT.0.0 J  JLT-JLT-1 

IF  ( TLFFT  .L7 ♦  0.0)  Jl-T  ■  JLT-2 

IF(TLEFT.EO.O.O)  JLT-0 

JRT-INT(TR1GHT/TmESH> 

IF  (TRIGHT  .GT.  0.0)  JRT  -  JRT*2 
IF(TRIGFT.LT.O.O)  JRT-JRT+1 
IFITRIGFT.FC.O.O)  JRT-0 

JBOT  ■  INTITBOT/TFESH) 

IF  (TBCT  .GE.  0.0)  JBOT  ■  JROT-i 

IF  ( TBCT  ,LT .  0.0)  JBOT  «  JBOT-2 

JTOP  ■  INTITTOP/TFESH) 

IF  < TTOP  .GT.  0.0)  JTOP  «  JT0P*2 

IF  (TTOP  .LE.  0.0)  JTOP  •  JTOP+1 

I NI T I AL 1 7 AT  I  ON  OF  PARAFFTERS. 

K I  -  JTOP 
KR  -  JLT 
HEDGE  ■  1 

CALL  FINDFXIKR.HI.F.FE.TLEFT.TRIGHT) 

E00-1.0 
E01-1.0 
E10-1.0 
Ell-1. € 

NR  El  •  0 
NR  E2  ■  0 
NR  E3  ■  0 
NR  E4  •  0 
NR  7  •  0 
CO  TO  15 

10  IF(NR  7L  .LF.  1)  GO  TO  15 
NR ITE ( 1 1.2000 )  NR7L 

2000  FORMAT  ( *0 *. 13. 1 X. »FODES  FOUND  ON  SAFE  PHASE  LINE*) 

GO  TO  5 
15  NR  7L  •  0 
NRSOIJ  -  0 

20  PREVF-F 

prevff-fe 

IF(MPRINT.NE.O)  NR ITE (11 #2200  )  HR.KI.F.FE 
2200  F0RFAT(30X.2I4*5X.»F  ■  » . 1 P2E 1 2 . 3.5X. 'FE  -  ».lPEl2.3) 

GO  TO  (21.26. 3l.36).KE0GE 
C 

C  SEARCH  ALCNG  LEFT  EDGE  OF  RECTANGLE  FOR  SIGN  CHANGES  IN  IMAG(F), 

21  IF  (HI  .EO.  JBOT)  HEDGE  •  2 
IF  (HEDGE  .EO.  2)  GO  TO  26 
HI  -  HI-1 

CALL  FINDFX(KR»XI.F.FE.TLEFT, TRIGHT) 
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Ill 

11? 

113 

114 

115 

116 
117 
116 

119 

120 
12! 
12? 

123 

124 

125  C 

126  C 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 
136 

139 

140 

141 
14? 

143 

144 

145  C 

146  C 

147 
146 

149 

150 

151 
15? 

153 

154 

155 

156 

157 
156 

159 

160 
161 
16? 

163 

164 

165  C 


!F  MAlMAGfPREV  F)  ,<JT.  0.0  .AN'71.  AIHAG(F)  .GT.  0.0) 

*  .OF.  <AINA<J<PREV  F)  .LT.  0.0  .AND.  A  IK  AG  ( F )  .LT.  O.C 

*  GO  TO  20 

IF  <NP  FI  .EG.  0)  GO  TO  23 
DO  22  K.i,NF  FI 

IF  <«l  .EG.  K  E0GF1IK))  GO  TC  20 

22  CONTINUE 

23  FOl  ■  PREV  F 
F01F-PREVFF 
FOO  -  F 
FOOE-FE 

LI  »  *1 
L»  »  JLT 
GO  TO  43 

SEARCH  ALONG  PoTTON  EDGE  OF  RECTANGLE  For  sign  changes  IN  IKAGfP) 

26  IF  ( KR  .EG.  JRT )  KEO'iE  ■  3 
tF  (KFCGE  .EG.  3)  GO  TO  31 
KR  •  KR+1 

CALL  F INDFX ( KR.K I, F,FE* TLEFT.TR I GHT) 

IF  <<AINAG<PREV  F)  .GT.  0.0  .AND.  AIHaS<F>  .GT.  0.0) 

*  .OR.  I A IFAGIRREV  F)  .LT.  0.0  .AND.  AIKAg(F)  ,|_T.  0.0 

*  GO  TO  20 

IF  INR  E2  .EG.  0)  GO  TO  2* 

DO  27  K-l.NR  E2 

IF  (Kp  ,E0.  K  EDGF2 ( K ) )  GO  TC  20 

27  CONTINUE 

28  FOO  •  PREV  F 
FOOE-PREVFE 
F10  •  F 
F10E-FE 

LI  -  JBOT 
LR  ■  KR-i 
GO  TO  48 

sFarch  along  right  edge  of  rectangle  for  sign  changes  in  imag<F). 

31  IF  (*l  .EG.  JTOP)  KEOGE  ■  4 
IF  <*FCGE  .eg.  4)  GO  TO  36 
K 1  •  KU| 

CALL  FINDFXIKR.KI.F.FE.TtEFT.TRIGMT) 

IF  I  I A I  HAG  I PREV  F)  .GT,  o.O  .AND.  AlHAO(F)  .GT.  0.0) 

9  .OR.  UIKAGIRREV  F)  .LT.  0.0  .AND.  AlNAGCF)  .LT.  o.O 

9  GO  TO  20 

IF  (NR  E3  .EG.  u)  GO  TO  33 
DO  32  *»1*NR  E3 

IF  (KI  .EG.  K  EDGE3 < K ) )  GO  TO  20 
3?  CONTINUE 
33  F10  •  PREV  F 
F10F-PRFVFE 
FI  I  •  F 
FHF-FE 
LI  •  K  1  - 1 
LR  «  JRT-1 
GO  TO  53 


it 


166  C  SEARCH  ALONG  TOP  EOGE  OF  RECTANGLE  FOR  SIGN  CHANGES  IN  IMAG(F). 

167  36  IF  (KP  .FO.  JLT)  GO  TO  80 

168  KR  ■  KR-1 

169  CALL  F1NBFX{KR.KI.F»F£»TLEFT»TRI0HT) 

170  IF  ((AIHAGIPREV  F)  .GT.  0.0  .ANT.  A  I H  A  G ( F  )  . GT .  0.0> 

171  *  .OR.  (AIHAGIPREV  F)  .LT.  0.0  .AND.  AIMG(F)  .LT.  0. 

172  *  GO  TO  20 

173  IF  (NP  E4  .EQ.  0)  GO  TO  3a 

174  DO  37  K-1,NR  E4 

175  IF  (KR  .EQ.  K  EDGE4  <K  > )  GO  TO  20 

176  37  CONTINUE 

177  38  FI l  «  PREV  F 

178  FI 1F*PRFVFE 

179  FO 1  «  F 

180  F01F-FE 

181  LI  •  JTOP-1 

182  LR  -  KR 

183  GO  TO  58 

184  C 

185  C  ENTER  MESH  SQUARE  FROM  LEFT  SIDE  OR  EVIT  RECTANGLF  AT  RIGHT  EDGE 

166  41  LR  •  LR* 1 

187  IF  (LR  .LE.  JRT-11  GO  TO  42 

166  NR  E3  "  NR  E3+1 

169  K  EDGES ( NR  E3)  ■  Lt*l 

190  lF(MPRlNT.NE.O)  WRITE ( 1 1 .990 1 

191  GO  TO  10 

192  42  F01»F 1 1 /El  1 

193  F01E-F11E 

194  F00-F10/E10 

195  F00E-F10E 

196  43  CALL  FINDFX (LR*1 .L I*l*Fl 1 ,Fl 1E.TLEFT.TR IGHT ) 

197  CALL  FINEFX(LR*1.LI#F10.F10E«TLEFT,TRIGHT) 

196  SCALE-AMAX1 (FOOE.FOIE.FIOE.FI IE » 

199  !F(9C ALE. CT. 34.0)  THEN 

200  E00»EXP(F00E-8CALE) 

201  E01»EXF(F01E-SCALE) 

202  F10"EXP(F10E-8CALE> 

203  Ell"E*P(FiiE-SCALE! 

204  FOO"FOO*EOO 

205  Foi»Foi*Eoi 

206  Flo»Flo*ElO 

207  Fll«Fl 1 *El 1 

208  END  IF 

209  LEDGE  •  1 

210  ENTER  R  "  0.0 

211  ENTER  I  ■  -AIMAG(F00)/AIMAG(F01-F00) 

212  GO  TO  60 

213  C 

214  C  ENTER  mesh  SOUARE  from  Bottom  SICE  OR  EXIT  RECTANGLE  AT  TOP  EtGE 

215  46  LI  ■  L I ♦ l 

216  IF  (LI  .LE.  JTOR-1!  GO  TO  47 

217  NR  F4  ■  NR  E4*| 

218  K  EDGF4(NR  E 4 )  -  LR 

219  TFCMRRINT.NE.OJ  WR ITE ( 1 1 . 990 » 

220  GO  TO  10 


22!  47  F00-F01/E01 

222  FOOF-FOIF 

223  F 1 0»F 1 1 / E 1 1 

224  F10F-FHE 

225  48  CALL  FINDFX(LR»LI+1,F01.F01E»TLEFT,TR1GHT  ) 

226  CALL  FINDFX(LRM.LI«-l,Fll»FltE,TLFFT,TRIGHT) 

227  SCALE- AHAX1 ( FOOE.FO 1 E. F | OF,F 1 1 E 1 

226  IF(SCALE.GT.34.0>  THEN 

229  EOO«EXP(FOOE-SCALE> 

230  F0!«E»P(F01F-SCALF) 

231  FIO-EXP(FIOE-SCALE) 

232  El l»EXP(FllE-SCALE) 

233  F00-F00*E00 

234  FO 1-FO 1  *E0 1 

235  F 1 0-F 1 0*E  1 0 

236  F 1 l-F 1 1  *El  1 

237  END  IF 

236  LEDGE  -  2 

239  ENTER  P  ■  •AIMAG{FOO)/AlMAG(FlO-FOO) 

240  ENTER  I  •  0.0 

241  GO  TO  60 

242  C 

243  C  ENTER  MESH  SQUARE  FRO*  RIGHT  SITE  OR  EXIT  RECTANGLE  AT  LEFT  ECGE . 

244  51  LR  -  LR-1 

245  IF  1LR  .GE.  JLT )  GO  TO  52 

246  NR  El  »  NR  El+1 

247  K  EDGE1  (NR  EH  «  LI 

246  IF(MFRINT.NE.O>  WR I TE < 1 1 ,990 > 

249  CO  TO  10 

250  52  Fll-FOl/EOl 

251  F11E-F01E 

252  FIO-FOO/EOO 

253  F10E-F00E 

254  53  CALL  F I NDFX ( Lr,L l* 1,F0 1 *F0 IE, TLEFT, TR I GHT ) 

255  CALL  F1NDFX(LR.LI,Fu0.F00E,TLEFT,TRIGHT) 

256  scale- amaxhfooe,fqie.fioe,fue> 

257  IF1SCALE.GT. 34.01  THEN 

256  EOO-EXPIFOOE-SCALEI 

259  EOl-EXPIFoiF-SCALE) 

260  E10-EXP1F10E-SCALE1 

261  Ell-EXP 1 F l lE-SC ALE  1 

262  FOO-FOO*EOO 

263  Foi-Foi *E01 

264  FlO-FlO*ElO 

265  F11«F11*E11 

266  END  IF 

267  LEDGE  »  3 

266  ENTER  R  ■  1.0 

269  enter  i  ■  -aimAgifioi/aimaoifu-fioi 

270  GO  TO  60 

271  C 

27?  C  fnter  mesh  square  fro*  Top  SIDE  or  exit  RECTANGLE  at  DOTTO*  etge. 

273  56  LT  ■  L I - 1 

274  IF  (LI  .GE.  JB0T)  GO  TO  57 

275  NR  F2  ■  NR  E2+1 


•  .>4 

*3 
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276  K  F0GF2 ( NR  E2 )  »  LR*1 

277  !F*MPRINT.N'E.O)  WRITE*  1 1.990  1 

278  GO  TO  10 

279  57  FO I ■FOO/EOO 

280  F01F-F00F 

281  F11-F10/F.10 

28?  F11F-F10E 

283  5*  CALL  FINDFXfLR.Ll.FOO.FOOE.TI-EFT.TRlGHT) 

284  CALL  FINDFX(LR*l»LI,F10»Fi0E.TLEFT.TRIGHT  ) 

285  SCALE-AMAXl  IFOOE.FOIF.PIOE.FI IE) 

286  IF(SCALE.GT.34.0)  THEN 

287  E00«EVP<F00E-SCAI.E) 

288  E0l«EXP*F01E-SCAL£> 

289  E10«EXP*F10E-SCALE> 

290  Ell-EXP(FHE-SCALE) 

291  FOO“FOO*EOO 

292  F01"F01*E01 

293  F 1 0«F 1 0*E 1 0 

294  Fll-FlloEU 

295  END  IF 

296  LEDGE  -  4 

297  ENTER  R  ■  - A IMAG < FO 1 ) / A  I  MAG < F 1 1 -FO  1  ) 

296  ENTER  I  -  1.0 

299  GO  TO  60 

300  C 

301  C  FOR  DEBUGGING  ONLY.  PRINT  CO-OREINATE  OF  LOWER  LEFT  CORNER 

302  C  OF  CURRENT  MESH  SQUARE.  RESULTING  SET  OF  PRINTED 

303  C  CO-ORDINATES  GIVES  TRACE  CF  EACH  LINE  ALONG  WHICH 

304  C  IMAGlFl-O.O  FROM  ITS  ENTRY  ON  THE  EDGE  OF  THE 

305  C  RECTANGLE  TO  ITS  EXIT  AT  ANOTHER  POINT  ON  THE 

306  C  RECTANGLE. 

307  60  IF(MPRINT.NE.O)  WRITE* 1 1#960»  LR.L I 

308  960  FORMAT  <»  '.20X.2I5) 

309  C  TEST  FOR  THERE  REING  TWO  (HYPERPCLIO  LINES  ENTERING  AND  LEAVING 

310  C  THE  MESH  SQUARE  ALONG  EACH  OF  WHICH  IMAG*F)«0.0 

311  C  IF  SO,  SET  »LTWO*  NON-ZERO. 

312  LTWO  «  0 

313  NRSCU-NRSOU+l 

314  IF(NRSCU  .GT.  MaXNSG)  GO  TO  95 

315  IF(( (aIMaGCFOO).GE.  0.0 ) . aND. « A Im AG ( FI  1 ) .GE.  0.0) 

316  *  .AND.<AIMAG*E!OJ.LE.  0.0 ) .AND. ( A  IMAG<F01)  .LE.  0.0)) 

317  *  .Op . ( (AIMAGfFOO).LE.  0 . 0 ) . AND. *  A  I  MAG ( F 1 1 ) .LE .  0.0) 

318  *  .ANC.(AIMAG*FtO).GE.  0.0). AND. ( AIMAG*F01  )  .GE.  0.0)))  LTWO-1 

319  C  TFST  FOR  THERE  REING  AT  LEAST  ONE  (HYPERROLIC)  LINE  ENTERING  A*D 

320  C  LEAVING  THE  MESH  SQUARE  ALONG  WHICH  REAL*F)»0.0 

321  C  IF  NOT.  SET  M9o*  TO  ZERO . 

322  190  -  1 


323 

IF 

<<RFAL*Foo>  .GT .  o.o  . 

AND. 

REAL (F 10 I  .GT.  0.0 

324 

* 

.AND.  REAL  *F01 1 

.GT 

.  0.0  .AND.  RE  Al.  *  F  1 1  ) 

.GT. 

0.0) 

325 

.OR.  <  REAL  <  FOO ! 

.LT 

.  0.0  .AND.  REAL  *  F 1 0 ) 

.LT. 

0.0 

326 

<* 

.AND.  REAL(FOl) 

.LT 

.  0.0  .AND.  REAL  *  F 1  1 ) 

.LT. 

0.0)  ) 

327 

* 

190  ■  0 

326 

IF 

*LT>*0  .FG.  0  .AN*).  190 

.EC 

.  0»  GO  TO  70 

329  C 

330  c  computation  of  coefficients  to  pe  used  in  describing  the  variation 


331  C 
33?  C 

333  C 

334  r 

335  C 

336  C 

337  C 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350  C 

351 

352 

353 

354 

355  C 

356 

357 
356 

359 

360 

361 

362  C 

363 

364  C 

365  C 

366  C 

367  C 

368  C 

369  C 

370  C 

371  C 

372  C 

373 

374 

375 

376 

377 

378 

379 

360 

361 

362 

363 

364 

365 


OF  THE  FUNCTION  WITHIN  A  MESH  SCUARF  GIVEN  THE 

values  at  the  corners  of  the  square  and  linear 
VARIATION  along  it?  edges.  also,  thf  position  cf 
CROSSING  OF  The  hyperbolic  asymptotes  (WHICH  are 
PARALLEL  TO  the  sices  of  the  SCUARE)  fop  the  lines 

IMAG(F)«0.0  ARE  CONFUTED  IF  BOTH  LINES  (BRANCHES) 

ENTER  AND  LEAVE  THE  SQUARE. 

PARTS  •  FOO 
AR  a  PART ( 1  ) 

A  I  ■  PART ( 2 ) 

PARTS  ■  FO  J -FOO 
8R  «  P ART ( 1  ) 

01  *  PART ( 2  ) 

PARTS  ■  F10-F00 
CR  «  P ART ( 1 ) 

Cl  ■  P ART  <  2 ) 

PARTS  ■  FOO+Pl 1-F01-F10 
OR  ■  P ART ( 1 ) 

01  -  PART ( 2 ) 

IF  (LTWO  .EG.  0)  GO  TO  61 
CENTR  R  ■  “R I/D  I 
CENTR  I  -  -CI/DI 
IF  (190  .EO.  0)  GO  TO  70 

61  AB  ■  AR*01-AI*8R 
AC  -  AR*CI-AI*CR 
AD  ■  AR*DI-AI*DR 
0C  ■  BR*C1-BI *CR 
BD  a  BR*D I-B I *DR 
CD  a  CR*D1-C1*DR 

IF  (ABS(BD)  ,LT.  ABS(CD))  Go  TO  64 

solution  for  two  possible  points  at  which  there  may  re  crossings 

OF  THE  (HYPERBOLIC)  LINES  REAL(F>»0.0  AN*  IMAG(F)«o.O. 
A  CROSSING  POINT  I?  CHOSEN  TO  be  A  ZERO  OF  THE 

FUNCTION  IF  IT  LIES  WITH  IN  THE  CURRENT  MESH  SCIaRE 
AND  IF  IT  LIES  ON  THE  BRANCH  OF  TMaG(F)«o.O  CURRENTLY 
BEING  FOLLOWED.  MULTIPLE  CROSSINGS  ALONG  THIS  BRANCH 
(ACTUALLY  A  SERIES  OF  CONNECTING  HYPEPPOLIC  BRANCHES) 
in  the  same  or  in  different  souaRfs  are  noted  since 
THESE  MUST  Later  PE  RESOLVED. 

A  a  CD 

B  a  (AD-BC)*0.5 
C  a  AP 

CALL  QUAD  ( A.B.C.SOL.Nr  SOL) 

IF  (NR  SOL  .EO.  0)  GO  TO  70 
00  «3  N«  1  »NR  SOL 
UREAL  ■  SOL ( N ) 

IF  (UREAL  .LT.  0.0  .OR.  UREAL  .GT.  1.0)  GO  TO  63 
D1  a  BR+DR*UREAL 
02  a  R|*DI*UREAL 

IF  (ABS(Dl)  .GE.  APS ( D2  )  )  MIMAG  -  - ( AR+CR*URE Al ) /Di 
IF  (*RS(D2)  .GE.  ABs(dD)  UIMAG  -  -  (  A  I  +  C  I  *URE  AL  ) /D? 

IF  (UIMAG  .LT.  0.0  .OR.  UIMAG  .GT.  1.0)  Gc  TO  63 
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366  IF  (LTKO  . FQ»  01  GO  TO  62 

367  IF  ((FNTER  R-CENTR  R)*(U  REAL-CENTR  R)  .LT.  0.0 

366  *  .OR.  (ENTER  I -CENTS  I  » *  C  U  IMAG-CENTR  I)  .LT.  0.0) 

369  *  GO  TO  63 

390  6?  THFTA(l)  ■  (LR  +  II  REAL)*TMF.SH 

391  THFT * ( 2 )  •  (LI  +  U  IMAG) *TMESH 

392  lf<MPP!NT.NE.0>  WR ITE( 1 1*962)  LR.L  I .  THET  A  ( l  )  .  TI-ET  A  ( 2  ) 

393  96?  FORMAT  (»  ».2I4,3X. 'THET A  -'.2F9.4) 

394  NR?  «  N  P  7  ♦  1 

395  ZEROSd.NR?)  ■  THET A<1) 

396  7ER0S (2.NR7 )  ■  THFT  A ( 2 ) 

397  NR  ?L  *  NR  ZLM 

396  63  CONTINUE 

399  CO  TO  67 

400  C 

401  C  ALTERNATE  SOLUTION  FOR  THE  APOVE.  TWO  FORHS  ARE  NEEDED  SINCE. 

402  C  IN  ANY  GIVEN  CASE.  EITHER  FORM  ( PLT  NOT  BOTH  FORMS) 

403  C  HAY  BE  INDETERMINATE. 

404  64  A  »  BP 

405  B  >  (AE+BC)«0.5 

406  C  •  AC 

407  CALL  CUAD  ( A.B.C.SOL.NR  SOL) 

408  IF  (NR  SOL  .EQ.  0)  GO  TC  70 

409  DO  66  N>1.NR  SOL 

410  UIHAC  -  SOL(N) 

411  IF  (UIHAG  .LT.  0.0  .OR.  U1MAG  .GT.  1.0)  GO  TO  66 

412  D1  a  CR*DR*UIMAG 

413  D2  >  CI+DI*UIMAG 

414  IF  <AB8(D1)  .GE.  ABS(D2))  UREAL  -  - < AR*RR*U I M AG ) /DI 

415  IF  ( ABS ( D2 )  .GE.  ABS ( Dl ) )  UREAL  -  - ( A I I *U I H aG ) /P2 

416  IF  (UREAL  .LT.  0.0  .OR.  UREAL  .GT.  1.0)  GO  TO  66 

417  IF  (LTWO  .EG.  0)  GO  TO  65 

418  IF  ((ENTER  R-CENTR  R)*(U  REAL-CENTR  R)  .LT.  0.0 

419  *  .OR.  (ENTER  l-CENTR  I>*(U  IMAG-CEN'TR  I)  .LT.  0.0) 

4t0  S  GO  TO  66 

421  65  THETA(l)  ■  ( LR+U  REAL)*TMESH 

42*  THET  A  ( 2  )  ■  (LI«-U  IHAG)*TMESH 

4*3  IF(HRRINT.NE.O)  WRITE( 1 1.965)  LR.L I .THET A ( 1 ) . THET A ( 2 > 

424  965  FORMAT  (»  '.214. 3X. 'THETA  a'»2F<J.4) 

425  NR?  a  NRZ+ 1 

4*6  ZEROS ( 1 .NR? )  a  THET  A ( 1 ) 

427  ZEROS ( 2. NR? )  a  THETA(2) 

4*6  NR  ZL  ■  NR  ZL+1 

4*9  66  CONTINUE 

430  67  CONTINUE 

431  C 

432  70  CONTINUE 

433  C  TEST  FOR  FXIT  FROM  LEFT  EDGE  OF  MESH  SQUARE. 

434  IF  (LFBCE  .EG.  1)  GO  TO  72 

435  IF  ( ( A IMAG (FOO )  .GT.  0.0  .AND.  AIMAG(FOl)  .GT.  0.0) 

436  f  .OR.  (AIMAG(FOO)  .LT.  0.0  .  A  N  n  •  AIMaG(FOI)  .LT.  0.0)) 

437  *  GO  TO  72 

438  IF  (LTWO  .FQ.  0)  GO  TO  51 

439  EXIT  R  •  0.0 

440  FXIT  I  •  -ArMAG(F00)7AlMAG(F01-F00) 
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441  I F  ( ( FN  TER  R-CENTR  R)*(EX!T  R-CENTR  R)  .LT.  0.0 

44?  *  .OR.  (ENTER  T-CFNTR  I)*(EXIT  l-CENTR  T)  .LT.  0.0) 

443  «  GO  TO  72 

444  GO  TO  51 

445  C 

446  C  TF  ST  FPP  EXIT  FROM  POTTOM  EDGE  OF  MESH  SQUARE. 

447  7?  IF  (LFDGE  .EG.  2)  GO  TO  73 

448  IF  ((AIMAG(FOO)  .GT.  0.0  .ANT.  AIMAG(FlO)  .GT.  0.0) 

449  «  .OR.  (AIHAGIFOO)  .LT.  0.0  .AND.  AIMaG(Fio)  .LT.  0.0)) 

450  «  GO  TO  73 

451  IF  <LTt»0  .EG.  0)  GO  TO  56 

45?  EXIT  P  »  -AIMAGIFOOWAlMAGIFtO-FOO) 

453  FX  I T  I  *  0.0 

454  IE  ( ( FNTER  R-CEnTR  R)*(EXJT  R-CENTR  R)  .LT.  0.0 

455  «  .OP.  (ENTER  I-CENTR  I)*(EXIT  I-CENTR  I)  .LT.  0.0) 

456  *  GO  TO  73 

457  GO  TO  56 

458  C 

459  C  TEST  FOR  EXIT  FR0m  RIGHT  EDGE  OF  MESH  SQUARE. 

460  73  IF  (LFDGE  .EQ.  3)  GO  TO  74 

461  IF  ( ( A  I  MAG ( F  l  0  )  .GT.  0.0  .ANT.  A  I M AG ( F 1 1  )  .GT.  0.0) 

46?  S  .OR.  (  A  IM  AG  ( F 1 0  )  .LT.  0.0  .AND.  AIMAG(FU)  .LT.  O.OM 

463  «  GO  TO  74 

464  IF  ( LTfcO  .EQ.  0)  GO  TO  41 

465  EXIT  P  ■  1.0 

466  EXIT  1  ■  -AIMAG(F10>/AIMAG(FU-F!0> 

467  IF  ( (FNTER  R-CENTR  R)*(E*IT  R-CENTR  R)  .LT.  0.0 

468  S  .OR.  (ENTER  I-CENTR  I>*<EX!T  I-CENTR  D  .LT.  0.0) 

469  S  GO  TO  74 

470  GO  TO  41 

471  C 

47?  C  TEST  Fop  exit  From  Top  EDGE  OP  MESH  square. 

473  74  IF  (LEtGE  .EO.  4)  GO  TO  90 

474  IF  (( AIMAG(FOl)  .GT.  0.0  .AND.  A IMAG C F 1 1 >  .GT.  0.0) 

475  «  .OR.  (AIMAG(Foi)  .LT.  0.0  .AND.  A IMAG (Fl 1 )  .LT.  0.0)) 

476  S  GO  TO  90 

477  IF  (LTKO  .FO.  0)  GO  TO  46 

478  FX IT  P  ■  -AIMAG(F01>/AIMAG(Ftl-F01 ) 

479  EXIT  I  ■  1.0 

480  IF  ((ENTER  R-CENTR  R)*<EVIT  R-CENTR  R)  .LT.  0.0 

481  «  .OR.  (ENTER  I-CENTR  I  >  * ( EX  I T  I-CENTR  I)  .LT.  0.0» 

48?  «  GO  TO  90 

483  GO  TO  46 

484  C 

485  80  IF ( Np7 .NE  .0  )  CALL  NoMSHX  rfMESH.T0L.MpRlNT.7ER0S.NR7 ) 

486  IF  (NEWMSH  .NE.  0)  GO  TO  5 

487  PE  TURN 

488  C 

489  90  WRITE ( 1 1*909  )  Lp.LI 

490  909  FORMAT  <»0».»N0  EXIT  FROM  M£SH  SQUARE  * .2  I  6  ) 

491  GO  TO  5 

49?  C 

493  95  WRITE! 1 1.9500) 

494  9500  FOPMAT( »o*.»TOO  MANY  SQUARES  ON  SAME  PHASE  LINE  — MAKE', 

495  %  *  TMFSH  SMALLER . *  ) 
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496  GO  TO  5 

497  C 

498  990  FORHAT(»0») 

499  r 

500  97  WRITE (11*9700) 

501  9700  FORMAT'  (»0»**TMESH  HAS  BEEN  REDUCED  BUT  PROBLEMS  REMAIN  IK 

50?  *»'  EXECUTING  FZfROS* ) 

503  NENMSN  *  1 

504  NR  7*0 

505  RETURN 


*>.  ,  ■«-  « 


9  C 

10  C 

11 
12 

13  C 

14  C 

15 

16 
17 
16 

19 

20 
21 

22  C 

23  C* 


SUBROUTINE  0U  ATI  ( A»B»C.SOl»NR  SCL  > 

FOR  ROOT-FINDER 

SoLL'TIoN  FpR  THE  REAL  ROOTS  CF  A  CL ADR AT  I C  EQUATION  CF  THE 

FORM  A*X**2*2.0*P*X+C*0.0»  HHERE  X  IS  CALLED  »SOL» 

IN  THIS  ROUTINE.  THE  NUMBER  OF  RFAL  RCCTS  FOUND  IS 
GIVEN  BY  »NR  SOL*.  A  VALUE  OF  1  FOR  »NR  SOL*  RESULTS 
FROM  THE  QUADRATIC  ECLATION  APPROACHING  LINEARITY. 
USFD  BY  SUPROUTINES  F2FR0S  AND  NO  MfSH. 

implicit  double  precision**  <a-h»o-7> 

DIMENSION  SOL I 2  ) 


ACOPSQ-t  A/BDIC/B) 
IFIAPSIACoPSOI.lt. <0.31 )  Op  TC  20 

ARG-l.O-ACOBSO 

NRSOI.-O 

ifurg.lt. (o. on  return 

NRS0L*2 

R00T«APS(B)*80RT(ARG) 


SOLID  »  (-P  +  ROOTI/A 
SOL  1 2 1  -  I -E-ROOT ) / A 
RETURN 

20  TERM  ■  1.0 
SUM  -  1.0 

DO  21  K-1,50 

TERM  •  TERM*(  (K-i,.5)/(K  +  l.O)  >*ACOBSC 
SUM  ■  SUM+TERM 

IF  I ABS ( TERM (  .LT.  1.0E-10)  GC  TO  ?2 

21  CONTINUE 

22  SOLID  ■  -C/<2.0*B)*SIJM 
NR  SOL  «  1 

IF  <ARS!A/<2.0*PD  .LT.  1.qE-30>  RETURN 
NR  SOL  ■  2 

SOL  1 2  )  ■  -?.0*B/A-SCLID 
RETURN 


9  C 

10  C 

11  C 

12  C 

13  C 

14  C 

15  C 

16  C 

17  C 
16  C 

19  C 

20  C 

21 
22 

23 

24 

25 

26 
27 
26 

29 

30  C 

31  C 

32 

33 

34  C 

35  C 

36  C 


SUBROUTINE  NOMSHXmMFSH.TOI  »MPR  I  NT. 7ER0S. NRZ  1 
FOR  ROOT-FINDER 

THIS  VERSION  UPDATED  TO  MODIFY  GM*X  AND  THESM.  JAN  6  1982. 
ROUTINE  FOP  FINDING  EXACT  UN  THE  SENSE  OF  MO  MESH  APPROXIMATE  ) 
locations  cf  zeros  OF  The  FUNCTION,  f,  for  which 
A  COMPLETE.  BUT  APPROXIMATE.  SET  WAS  FCLND  IN 
SUBROUTINE  FZEROS. 

TWO  DEFICIENCIES  REMAIN  IN  THIS  ROUTINE.  ONE  IS 
THAT  ZEROS  CLOSER  THAN  THE  FINITE  VALUE  »TOL»  CANNCT 
BF  RFSOLVED.  THIS  HAS  CAUSFD  A  PPOPLFM  A  FEW  TIMES 
IN  USAGE  TO  DATE.  BUT  HAS  ALWAYS  ®FEN  RESOLVED  PY 
USING  A  SMALLER  VALUE  OF  'TOL'.  THE  SECOND  PROBLEM 
IS  THAT  THE  RESOLUTION  OF  'MULTIPLE  CROSSINGS'. 
WHICH  OCCUR  BECAUSE  OF  THE  NON-ANAL I T IC ITY  OF  THE 
MFSH  APPROXIMATION.  IS  SUCH  THAT  IN  PRINCIPLE  A 

ZERO  Can  be  MISSED.  there  is  no  evidence  this  has 

EVER  OCCURRED  IN  PRACTICE.  IT  MAY  OR  MAY  NOT  BE 

COST  effective  to  develop  the  program  FURTHER  tc 

CORRECT  THESE  TWO  PRCPLEMS. 

implicit  double  precisions  <a-w,o-7> 

common/newmsh/newmsh 

dimensicn  part ( 2 1 

COMPLEX  7ER0SU). 

*  THETA. 

*  F.DFDT.DELT. 

S  PARTS, 

*  ZEROSO  <1001 
EQUIVALENCE  (PARTI  1 1. PARTS! 

IF  (MPPINT.NE.0I  WRITE ( 1 1.900 1 
900  FORMAT  (»1». 'ITERATIONS  TO  REMGVF  MESH') 

NFWToN-pApHSoN  ( F I RST-OR^ER 1  ITERATION  To  FIN’D  EXACT  LOCATIONS 
OF  THE  7ER0S  OF  F. 


DO  29  J7-1.NRZ 
7EROSO ( J7 1  ■  ZEROS ( J| ) 

IF  (MFRINT.NE.O)  WRITE(U.90M  J? 

901  FORMAT  (»  '.181 

21  IF  (MFRINT.NE.O)  WRITE( 1 1.902’  ZEROS(JZ) 

902  FORMAT  (»  '.  1  0X.2 ( F9 .4 ) ) 

THETA  ■  7ER0S ( JZ 1 

CALL  FCFDTX(THETA.F.FE.DFDT.DFDTE) 
DELT«-(F/DFDT)*EXP(FE-DFCTe) 

ZEROS ( J7 1  -  7ER0SI  J7UDELT 
IF  (CAPS(DELT)  .GT.  U.3*T0L)  CO  TO  21 
29  CONTINUE 


NiiMBFR  f)F  unique  ZEROS  COMPARED  to  TOTAL  NIJMREP 
30  IF ( NR7  ,LF.  |)  RETURN 
MATCH  ■  0 
DO  33  J-2.NR7 
JM1  ■  J-l 


56  DO  32  J J* 1  *  JM 1 

57  IF  <CAFS<2EFOS< J)-ZEROS< JJ> J  .GT.  TCU  GO  TO  32 

56  IF  IMPRINT. NE.O)  HR ITE < 1 1 ,905 )  J,JJ 

59  905  FORMAT  <*0*,»7ER0S  MR*, !3« I X, * AND*. 13. 1 X, 

60  «  * ARE  THE  SAME*) 

61  MATCH  ■  1 

62  32  CONTINUE 

63  33  CONTINUE 

64  C 

65  IF  {MATCH  ,E0.  0)  RETURN 

66  40  NFNMSH  ■  NEHMSH+ 1 

67  IF  ■< NEMMSH »LE .2 )  NR ITE < 1 1 , 400 > 

66  400  FORMAT  <»0»,*  PROBLEMS  IN  THIS  RANGER-RANGE  I  BOX .  PROGRAM  H  ILL  US 

69  *E  TMESH/2  AND  RE-EXECUTE  THE  PROGRAM*) 

70  IF  <NEhMSH.GE.3>  NR ITE < 11,405 ) 

71  405  FORMAT  <»0*»*  PROBLEMS  IN  THIS  RANGER-RANGE  I  BOX.  USER  MUST  DECRE 

72  *ASE  GMAX  AND  RE-EXECUTE  THE  PROGRAM* > 

73  NR  7  •  0 

74  C 

75  RETURN 

76  END 


1  SUBROUTINE  FINDFXJ JR. J I .F.FE. TLEFT. TR I GHT ) 

2  C********** 

3  C  THIS  SUBROUTINE  INCORPORATES  CHANGES  NFETEC  IK  EVALUATING 

4  C  THF  MODAL  FUNCTION  ALONG  THE  IMAGINARY  AXIS  WHEN  SURFACE 

5  C  ROUGHNESS  IS  INCORPORATE!*  INTO  THE  MCtEL 

6  €•»•******* 

7  IMPLICIT  DOUPLE  PRECISIONS  (A-H.0-7) 

8  COMPLEX  F»7, PARTS 

9  DIMENSION  PART ( 2 ) 

10  common/tmccom/tmesh 

11  EOUIVALFNCF  (PART, PARTS) 

12  C 

13  C  DEFINE  SMALL  OFFSET  VALUE 

14  C 

15  DATA  pFFSET/l.OE-9/ 


18  PART( 1)-DFL0AT< JR>*TMESH 

19  PART(2)«DFL0AT( JI )*TMESH 

20  C««*«* 

21  C  IF  EVALUATING  M0DAL  FUNCTION  ALONG  IMAGINARY  AXIS. 

22  C  SHIFT  ARGUMENT  OF  FUNCTION  OFF  OF  ANr  SLIGHTLY  TC  THE 

23  C  RIGHT  OF  THE  IMAGINARY  AXIS  IF  THE  SEARCH  RECTANGLE 

24  C  LIES  TC  THE  RIGHT  OF  THE  IMAGINARY  AXIS. 

25  C  IF  EVALUATING  MODAL  FUNCTION  ALONG  IMAGINARY  AXIS, 

28  C  SHIFT  ARGUMENT  OF  FUNCTION  OFF  OF  AND  SLIGHTLY  TC  THE 

27  C  LEFT  OF  THE  IMAGINARY  AXIS  IF  THE  SEARCH  RECTANGLE 

28  C  LIES  TP  THF  LEFT  OF  THE  IMAGINARY  AXIS. 

29  C 

30  IF(JR.FC.O)  THEN 

31  IF ( TLEFT . EG .0 .0 )  SHIFT-OFFSET 

32  IF(TRIGHT.EC.O.O)  SHIFT— OFFSET 

33  PART ( 1 I-SHIFT 

34  END  IF 

35  7-PARTS 

36  CALL  FCTVLX(7,F.FE) 

37  RETURN 

38  FND 
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SUBROUTINE  FXCFAC<XFAC»XFACE»Ot  1  ) 


rainuyt!  ip.  a  v*. 


1 

2  C 

3  C  THIS  SUBROUTINE  EVALUATES  THE  EXCITATION  FACTCP#  XFaC*EXP < XFACE > . 

4  C  FOR  THE  MODE  ASSOCIATE'!  WITH  THE  EIGENVALUE  0 1  I 

5  C 

6  C  INPUTS  VIA  COMMON  BLOCK. .. 

7  C  AiH  -  ALPHA l *H 

8  C  MAVFNO  -  NAVE  NUMBER 

9  C  Cll  -  CBRTIALPHAl/WAVENO) 

10  c 

11  C  SUBROUTINES  USED... 

12  C  FDFTTX 

13  C********** 

14  implicit  double  precision^  ia-h,o-7> 

15  COMPLEX  XFAC.O! l.RHO.F.CFCT.CSCRT,  I.Oi IT 

16  COMPLEX  SONG 

17  common/comtwo/etaars,alphai#h,ci  i.SCNG 

18  COMMON /COMTHR/72, 23. ARM AG »  AL PH A3»NAVEN0»ALPHa2 

19  DATA  1/(0. 0.1.0)/ 

20  C***** 

21  C  EVALUATE  RH0 

22  C 

23  RHO*WAVFNO*CSORT{ 1.0+I*ETAABS-ALPHA1*H-C1 1*C J 1 *C  1 1 ) 

24  C 

25  C  THE  NEXT  STATEMENT  COMPENSATES  FOR  THE  SHIFT  IN  Cll  INTRODUCED 

26  C  IN  SUBROUTINE  *FDFDTX» 

27  C 

26  011TB0 11+1*0.003 

29  C 

30  C  FVALUATE  THE  DERIVATIVE  CF  THE  MODAL  FUNCTION 

31  C 

32  CALL  FDFDTX(OUT.FJ.FE.DFCT,OFrTE) 

33  C 

3«  c  evaluatf  the  excitation  factor 

35  C 

36  XFAC»-WAVFNo*WAVENo*Cll*CU/<?.0*CSCRT(RHo>*rFrT) 

37  XF  ACF»-DFDTF 
36  C 

39  c  normal i te  xfac 

40  c 

41  xnopm-cabsixeao 

42  XFAC-XFAC/XNORM 

43  XFACF«XFACE+DLOG(XNORM) 

44  RFTURN 

45  C***** 

46  END 


•Li 


m 


-  ! 


~4 

'.i 
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19  C 

20  C 

21  C« 

22 

23 

24 

25 

26 
tr 
to 

29 

30 

31 

32 

33 

34 

35 

36 

37 
36 

39  C« 

40  C 

41  C 

42 

43  C « 

44  C 

45  C 

46 

47 
46 

49 

50  C« 

51  C 

52  C 

53 

54 

55 


SUBROUTINE  H7GAIN(EN7A,EN7E,Q1  1.  7RCVR.7XMTR  > 


THIS  PROGRAM  EVALUATES  THE  HEIPHT-GA  IK  FUNCTIONS  FOR  A 

TRILINE  AR  MODEL  OF  THE  MODIFIED  REFRACTI VITY  CF  T(-E  TROPOSPHFPE. 

INPUTS... 

Oil  -  MODAL  EIGENVALUE 

ZRCVR  -  HEIGHT  (IN  METERS)  OF  THE  RFCEIVER  APCVE  GROUND 
LEVEL 

7XMTR  -  HEIGHT  (IN  METERS)  OF  THE  TRANSMITTER  ABOVE  GPCl  N f 
LFVEL 

OUTPUTS... 

EN7  -  HEIGHT-GAIN  FUNCTION  FOR  THE  MODAL  FIGENVALUE 
Cll  EVALUATED  FOR  THE  TRANSMITTER  LOCATED  AT  7XMTP 
AND  THE  RECEIVER  LOCATED  AT  7RCVR 
ENZ»ENZA*EXP(ENZE) 

SUBROUTINES  USED... 

hnklx.khnklx.cade.khatx 


IMPLICIT  DOUBLE  PRECISIONS  (A-H,0-7> 

COMPLEX  011.012,022.023.033. 

*  012*1, Oi2A2»DCl2Al,nCi2A2.G22Al,C22A2.D022At.0022A2. 

S  023A1.023A2-D023A1.DG23A2.033A1.G33A2.D033A1.D033A2. 

S  SONG, I.M.KHATA1.KHATA2.QR.GT. 

S  ORAl.ORA2.DORAl.D0RA2.0TAt.GTA2.EOTAl.DOTA2. 

*  Rl.R2.R3,XAA,XBA.YAA.YPA.7AA.YCA.YDA.7PA,FK! 1A, 

S  YEA.EKi2A.YFA.FK22A.ENZA.T33Al.T33A2.DT33Al.tT33A2.EP I. 

*  TRAl.TRA2.DTRAl.DTRA2.TTAt.TTA?.DTTAl.rTTA2,rKHTAl, 

*  DKHTA2 

DOUBLE  PRECISIONS  KHATE 1 .KHATE2 
COMMON/  COMONE  /C1.C3.C4.C5.C6.C7.C8.C9.SGN A2 
COMMON  /  COMTWO  /  ETAAPS.ALPHAl.H.Cl l.SQNG 
COMMON  /COMTHR  /  Z2.73. A2MAG. ALPHA3.H AVENO. ALPHA2 
DATA  1/(0. 0.1.0)/ 

DATA  W/(0. 0.-1.45749544)/ 

DATA  EPI/(-0. 5.0. 866025404)/ 


FUNCTION  DEFINITION 
CBRT(X)»X**(I. 0/3.0) 


EVALUATF  012.022.023.033 

012  ■  C11+C4 
022  ■  C5*01 1 +C6 
023  ■  C5*01 1+C7 
033  ■  C«*Q11*C9 


EVALUATF  MODIFIED  HANKEL  FUNCTIONS  NEEDED 

CALL  KHNKLX(0l2.(512Al.Q12El,0I2A2,0l2E2.Dr!i?A  I.CC12EI. 
f  DO  1 2 A2.D0 1 2E2 ) 

CALL  khNKLX(022,022Ai.Q22Ei.022A2.022E2.D022*1.CC22Ei, 
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*  ;*■*>*'**'..***•' :  v.-r-T-*.  .-*»■>»"-  .,Vii)>V»M*  ->?*>»«  Km*** 


n 


56 

57 
56 

59 

60 
61 
62 

63 

64 

65 

66 
67 
66 

69  C«- 
76  C 
71  C 
7t  C 

73 

74  C 

75  C 

76  C 

77 

76 

79 

66 

61 

62  C 

63  C 

64  C 

65 

66 
U7 

«9 

90 

•  1  C 

92  C 

93  C 

94 

95 

96 

97 
96 

99 

100 
101 
102 

103 

104 

105 

106 

107  C 

108  C 

109  C 

110 


nC22 A2»  0Q22E2  ) 

CALL  KKNKLX<Q23#n23Al»fJ23El,n?3A2.G23E2.nG23Al,rC23El. 
0C23A2.DC23E2) 

CALL  HKKLX(C33,T33Al,T33El»T33A2»T33E2»r)T33Ai.CT33El. 

DT33 A2#  DT33E2  * 

CALL  CADD<Q33Al#Q33El,T33Ai.T33E w-EPI*T33A2,T33E2) 

CALL  CA0D(DC33Al.nQ33El.rT33Al»PT33El»-EPn0T33A2,nT33E2> 

93342*333 A2 

033E2*T33E2 

DQ33 A2*CT33 A2 

0033E2-CT33E2 

CALL  KHATX(Gi1»KHATA1.KHATE1»K!-ATA?,KHATE2»t’khTA  |#T1KHTEl. 
DKHTA2.DKHTE2I 

determine  which  layers  transmitter  and  receiver  *pe  ih 

and  EVALUATF  OR  and  GT  AND  MOP  1 E I  ED  HANKEL  FUNCTIONS 
IFI7RCVR.LE.72ITHEN 
RECEIVER  IN  FIRST  LAYER 
LRCVR*1 

QR-G1 1 ♦ ALPHA 1*ZRCVR/ (Cl 1*C1  t  ) 

CALL  KMNKLXIQR,QRA!,0REl,0RA2.CRE2,DCRAl»rCREU 
D0RA2*D0RE2 ) 

ELSE  !F<<7RCVR.LE.73».ANC.(7RCVP.GT.Z2>>  THEN 
RECEIVER  IN  SECOND  LAYER 
LRCVR*2 

QR-C3«Oll4C6*CRRT(WAVENO*WAVENO/( A2MAG*»2mAR) >* 
ALFHA2*(ZRCVR-Z2> 

CALL  FHNKLXI0R,0PAl.GREl*i5RA2»CRE2,DCRAl.rCRF|» 
0QRA2-DQRE2) 

ELSE 

RECEIVER  IN  third  LAYER 
LRCVR-3 

QR«Ce*G 1 1 ♦C9+CPRT ( WAVENO*W AVEND/ I Al PHA3* ALPHA3  )  )• 
ALPHA3*I7RCVR-73» 

CALL  HNKLXICR»TRAl,TREl,TRA2.TRE2.DTRAi»DTREl, 
DTRA2.DTRE2) 

CALL  CACDI0RA1.0REi,TRai.TREi.-EPI*TRA2.TRE2I 
CALL  CADDICGRAl,E0PEl,DTRAl,rTREl,-EPI#DTRA2.DTRE2) 
<JRA2*TRA2 
0RE2-TRE2 
D0R*2*rTRA2 
D0RE2-DTRE2 
FND  IF 

if<zxptr.le.I2>  then 

TRANSMITTER  IN  THE  FfRST  LAYER 
LXMTR*! 
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111  OT«C 1 1*ALPHA1*7XMTR/<C1 t*Cl 1  > 

112  CALL  KHNKLX<nT*0TAl*'JTEl.GTA:?.l?TE2.riUAl*r<?TEl. 

113  *  D0TA2.DCTE2) 

114  ELSE  IF< I7XMTR.LE.?3>.ANn.{7VMTR.eT.?2>  )  THEM 

115  C 

116  C  TRANSMITTER  IN  SECOND  LAVER 

117  C 

118  LXHTR-2 

119  0T»C5*011*C6+CfiRT{WAVEN0*WAVEN0/{A2HAG*A2MAR) )* 

120  %  ALEHA2*  C  ZXMTR-22  > 

121  CALL  KHNKLX<(5T,QTAUGTEl,eTA2.f!TE2,E0TAl.CGTEl. 

122  «  DGTA2.DCTE2) 

123  ELSE 

124  C 

125  C  TRANSMITTER  IN  THIRD  LAVER 

126  C 

127  LXMTR«3 

126  OT«C8*0 11*C9+CBRT<WAVEN0*W A VEND/ { ALPHAS* ALPH A3) )* 

129  S  ALPHAS* (ZXMTR-23) 

130  CALL  HNKLX(0T,TTAl.TTEl*TTA2.TTE2.DTTAl»nTTEt. 

131  S  DTTA2.DTTE2) 

132  CALL  CADD<eTAl.GTEl»TTAl»TTEl.-EPI*TTA2.TTE2) 

133  CALL  CADD»D0TA1,D0TE1.PTTA1.CTTE1»-EPI*PTTA2.CTTE2) 

134  0TA2-TTA2 

135  0TE2-TTE2 

136  OOTA2-CTTA2 

137  DOTE2-DTTE2 

136  END  IE 

139  C***** 

140  C  EVALUATE  HEIGHT-GAIN  FUNCTIONS 

141  C** 

142  IF( (LRCVR.EQ.l ),AND«(LXMTR.EC.l  )  >  THEN 

143  C 

144  C  RECEIVER  IN  FIRST  LAYER  -  TRANSMITTER  IN  FIRST  LAYER 

145  C 

146  R1*CU*C11/(W*ALPHA1) 

147  XAA-SGNA2*0Q33A2«Q23A2/C3 

146  XAEaDC33E2*023E2 

149  XBA.033A2*DG23A2 

150  XBEa033E2*DQ23E2 

151  CALL  CADD(YAA»YaE*XAA*XAE,XBA.XRE> 

152  XAA«SGNA2*DG22A1«012A2*C1 

153  XAE-D022E1+012E2 

154  XBA*022 A 1 *D0 12 A2 

155  XBE»Q22E1 +DQ12E2 

156  call  caddiyba#yre«xaa#x*e.xba.xre) 

157  7AAaYAA*YBA*KHATA2 

158  7AE»YAE*V8E*KHATE2 

159  XAAaSGNA2*D033A2*023Al/C3 

160  XAEaDC33E2*023El 

161  XBAa033A2*D023Al 

162  XBEaQ33E2*D023El 

163  CALL  CADD<YCA.YCE.XAA,XAE.XBA*XBE> 

164  XAA»-SGN'A2*DQ22A2*Q12A2*Cl 

165  XAEa  DG22E2*G12E2 


166 

167 

168 

169 

170 

171 
17?  C 

173  C 

174  C 

175  C 

176  C 

177 

178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192  C 

193 

194 

195 

196 

197 

198  C 

199 

200 
201 
20? 

203 

204 

205 

206 

207 

208 

209 

210 
211 
21? 

213  C** 

214 

215 

216  C 

217  C 

218  C 

219  C 

220  C 


X8Aa-C22A2*0Gl2A2 

X8F-022P2+D012E2 

CALL  CADJH  Y0A,Y0E,XAA»XAE,XRA.XBE> 

7BA*YCA*YDA*KHATA2 

?BE«YCE*YDE*KHATE2 

CALL  CADDlFKtlA#FKUE,7AA»7AE.7BA,7PE) 

7AA«-YAA*YPA*KHATA1 

7AE-YAF4YBF4KHATE1 

7BA»-YCA4YDA*KHATA1 

7BE-YCF4YDE4KHATE1 

CALL  CADD<FK12A,FK12E.7AA,7AE.?«A,7PE) 

XAA«SGNA2*D(222Al*ai2Al*Cl 

XAE-0C22E1+O12E1 

XBA»F22A1*0Q12A1 

X8E-G22E1+DQ12E1 

CALL  CADD<YEA,YEE,XAA,XAE»XRA.XRE> 

7AA»YAA*YFA*KHATA1 

7AE-YAE4YEF4KHATE1 

XAA»-3GNA2*0Q22A?*<?12Al*Cl 

XAE-DC22E2*012E1 

XBA*-C22A2*0Q12A1 

XBC-C22F.24CQ12E1 

CALL  CADD(YFA*YFE,XAA.XAE.XBA,XRE> 

ZBAaYCAaYFAaKHATAl 

7BE-YCE4YFE4KHATE1 

CALL  CADDIFK22A*FK22E.7AA.7AE,7pa,7PE> 

2AA—YAA*YFA*KHATA2 

7AE-YAE4YCE4KHATE2 

7BA—YCA*VFA*KHATA2 

ZBE-YCF4YFF4KHATE2 

CALL  CADD<FK12A.FK12E#7AA.7AE.7RA.7RE) 

XAAaFKf 1A*0TA1*0RA1 
XAF-FKHF4QTE140PF1 
XBA«FK22A4CTA2*9RA2 

X8E.FK22E4GTE240RF2 

CALL  CA0n<7AA,7AE,XAA»XAE»XPA»XBC) 

XAA»FK12A*CTA2*0RA1 
XAE-FK12E*0YE2*0RE1 
XBA*FK12A*QTA1*0RA2 
XBFaFK12E*PTEl40RE2 
C^LL  CAD0<7BA,7PC,XAA»XAE»XPA»XRE) 

CALL  CADD1EnZA»ENZF*7AA,7AE,7PA,7RE) 

FN?A-R1*EN7A 

RETURN 

ENT)  IF 

TF{ ( (LRCVR.EO.l ) . ANO.lL XNjR.Ec. 2 > ) .CR. ( (LrCVP.Ec.2) . 
t  ANT. (LXMTR.EO.  1  )))  THFN 

RECEIVER  IN  FIRST  LAYER  -  TRANSMITTER  IN  SFCCM)  LAYER 

OR 

RECFIVER  IN  SFCOND  LAYER  -  TRANSMITTER  IN  FIRST  LAYeP 
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221  ff|W»Cll*Cll/ALPHAl 

22?  XAA«SGNA2*D033A2«G23A2/C3 

223  XAF«n(?33E2*(323E2 

224  XBA»G33A?*D023A2 

225  XBE«G33E2+EQ23E2 

226  CALL  CADD(YAA-YAE,XAA»XAE»XPA»XPE) 

227  XAA»SGNA?*D033A2«023A1/C3 

226  XAE-  TC33E2+023EI 

229  X8A«G33A2*CQ23A1 

230  XBE»033E?*D<323Et 

231  CALL  CADD(Y8A,YRE,XAA.XAE,XPA,XPE) 

232  XAA«YAA*KHATA2«i3TA1*'3RA1 

233  XAE»VAE*KHATE2«-CTEl«-'3REl 

234  XBA»YBA*KHATA1*GTA2*<3RA2 

235  XBE«YPE*KNATE1*0TE2*0RE2 

236  CALL  CADD(7aA*ZaE*XAA»X*E.XBA.Xhe> 

237  IF (LRCVR.EC.  1 1  THEN 

238  XAA»-YBA*KHATA2*0TA2*0RA1 

2?9  XAE«YBE*KHATE2+C-TE2  +  CRE1 

240  XBA»-YAA*KHATA1*0TA1*0PA2 

241  XBE-YAE+KHATE1+GTE1+CRE2 

242  ELSE 

243  XAA«-YBA*KHATA2*GTA1*0RA2 

244  XAE«YBE*kHATE2*0TE1+CRE2 

245  XBA«-YAA*KHATAl*QTA2*0RAl 

246  XBE-YAE+KHATE1+CTE2+CREI 

247  END  IF 

246  CALL  CADD(7BA.7PE.XAA.XAE,XBA.XRE» 

249  CALL  CADD<ENZA»FN7E.ZAA,7AE,7PA,7PE) 

250  EN7A«R1W«ENZA 

251  RETURN 

252  END  IF 

253  C** 

254  IF( ((LRCVR.EQ.l l.AND. (LXRTR.EC.3) ).CR. ( ( LRCVR  .EC . 3 ) . 

255  *  ANE.ILXMTR.EO.im  THEN 

256  C 

257  C  rECFIvEr  IN  FIRST  LAYER  —  TRANSMITTER  IN  TMIrC  LAYER 

250  C  OR 

259  C  RECEIVER  IN  THIRT  LAYER - TRANSMITTER  IN  FIRST  LAYER 

260  C 

261  R1W»C11*C1 1/ALPNAl 

262  xAA»KHATA1*QRA2«GTA2 

263  XAE-KHATE1+QRF2+0TE2 

264  IFILRCVR.EC.I)  THEN 

265  XBA«-KHATA2*0RA1*'3TA2 

266  XBF-KHATE2+0REI+0TE2 

267  FLSE 

268  XBA»-KHATA2*0TA1*>JRA2 

269  X0E»KHATE2+QTE1*QRE2 

270  FNO  IF 

271  CALL  CADn<FNZA*EN7E,XAA.XAE.YFA.XPE) 

272  FNZA  —  RlW*h«EfoZA 

273  RETURN 

274  FNO  IF 

275  C** 


276 

277  C 

278  C 

279  C 
260 
26) 
282 

263 

264 
285 
2  66 
267 
266 
269 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 


I F  (  (LPCVR.FG.2)  .ANE.(LXPTR.EC.2>  )  THEN 

RECEIVFP  IN  SECOND  LAYER  —  TRANSMITTER  IN  SECOND  LAYER 

R2«CBRT(  ALPHA2*ALPHA2/<KAVENC*WAVENc>  )/< *LPHA2*K  > 

1F<  ALPHA2.LT. 0.0) THEN 
XAA-DC33A2*023A2/C3 
XAF»DC33F2*023E2 
X8A«033A2*CG23A2 
XBF-G33E2+D023E2 

CALL  CADD1 YAA,YAE,XAA.XAE.XRA,XOE) 

XAA«C1*DG22A2*012A2 
XAF«nC22E2*Gl2E2 
X0A*O22A2*tQl2A2 
X8F-G22E2+DG12E2 

CALL  CADDf YBA,YBE,XAA.XAE.XRA,X9E) 

XAA«C1*DG22A2*I312A1 
XAF-DG22F2+012E1 
X8A-G22A2*DG12A1 
X0E.G22F2+CG12E1 

CALL  CAOD< YCA,YCE,XAA.VAE,XPA,XRE) 

XAA»DC33*2*G23A1/C3 
XAF«rC33E7*G23El 
XBA"033A?*OG23A1 
XBE-G33E2+DQ23E1 

CALL  CADD(YDA»YDE<XAA#X*E.XPA,XRE) 

XAA»C1*D02?AI*Q12A2 
XAF«nc22El*Ql2E2 
X8A«G22A1*DQ12A2 
XBE-G22E1+DG12E2 

CALL  CADD(YEA,YEE,XAA.XAE.XPA,XRE) 

XAA-Cl»DG22Al*0l2Al 
XAE«DC22El*Gl2Et 
XBA«022A1*DG12A1 
XBE.C22F1+EG12E1 

CALL  CAnn<YFA,YFF,XAA.XAE,XRA,XHE) 

XAA*>YPA«KHATA  1 
XAF-YPF+KHATEl 
XBA*-YCA*KHATA2 
X0F-YCF+KMATE2 

call  caod<7aa*7ae»xaa#xae,xpa#xoe) 

FK1 1 A«?AA*YAA 
FKl 1E-7AE+YAE 
FKi?A«-7AA«YDA 
FK12E-TAF+Y0E 
YAA»YFA*KHATA1 
XAF.YFE+KMATE1 
VRA«-YFA*KFATA2 
TBF«YFF«-*HATF2 

CALL  CADr(7AA»7AE,XAA,XAE.XRA,XPE) 

FK22A"YDA*ZAA 
FK27E*YCF  *7 AE 
yaa-fkj 1A«CTA1*0RA1 
XAF.FX] 1F+CTF1 +GPE1 
XRA.F*'22A«CTA2*0RA2 
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YBF-FK22F.  +  CTP2  +  0RF2 

CALL  CADE(?AA»7AE.»XAA»XAE,XBA,yRF) 

VAA«F*12A*C7A2*GRAi 

XAE-FK12F+C7E2+GRE1 

XBA  ■FK12A*0TA1*CRA2 

XBE-F*l2F*C7El*flPE2 

CALL  CADfl<78A.ZPE,XAA»XAE.XRA,XBE> 

CALL  CADD(EN7A*EN7E»7AA*7AE»7PA»7PE  ) 

EN7A«P2*EN7A 

PETUPN 

FLSF 

XAA«-CC33A2*^23A2/C3 

XAF-PC33E2+023E2 

XBA-(333AP*C323A2 

XBF-G33F2+D023E2 

CALL  CADD(YAA*YAE,XAA,XAE»XBA,V^E) 

XAA--C1«DQ22A2*<312A2 

XAE»rC22E7+Q12E2 

XBA*022A2*D012A2 

XBF-C22E2+D012E2 

CALL  CADC< VBA»YBE*XAA»XAE.XBA#XPE) 

XAA«C1*D022A2*012A1 

XAE«DC22E2*012E1 

XBA»-P22A2*0Q12A1 

XBE-Q22E2+00t2El 

CALL  CADD(YCA*YCE»XAA»XAE»XBA,XBE) 

XAA»Cl*D02PAl*0l2A2 

XAE-DC22F1+012E2 

XBA—C22A1  •D012AP 

XBE-C22E1+D012E2 

CALL  CADD<Yt>A,YDE,XAA.XAE.XBA.XRE> 

XAA--C1«D022A1*012A1 

XAE-T5C22E1  +  012E1 

XBA-022A1*C012A1 

XBE-022E1+E012E1 

CALL  C*DD< YEA,YEE»XAA,XAF»XpA»X^F) 

XAA--EC33A7*<J23At/C3 

XAE-PC33E2+023E1 

xBA»R33A2«B023Al 

XBF»033E?+DQ23Ei 

CALL  CADIH  YFA,YFE.XAA,XAE,XRA.XPE> 
XAA»YPA*KHATA1 

xae-ype+khatfi 

XBA»YCA**HA7A2 

XBE-YCE+YHATF2 

CALL  rADD<7AA,7AE,XAA,XAE,XPA,XBE» 
FK1 1 A»YAA*7AA 
FK 1 1 E« Y  AF  +  7  AE 

xaa»yca«xhatai 

xae-yce+khatfi 

XBA»YFA«KHATA2 

XBF»YFF*KHATF2 

CALL  rADr»7AA,7AE.XAA,XAE,XPA,XRE) 

EKt?A-YAA*7AA 

FM2F-YAF+7AF 


366 

387 

368 

369 

390 

391 
39? 

393 

394 

395 

396 

397 
396 

399 

400 

401 

402 

403  O* 

404 

405 

406  C 

407  C 
406  C 

409  C 

410  C 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 
4  27 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 


FK2?A--YFA*7AA 

FK22E-YFE+7AE 

XAA«F* 1 1A*CTA1*0RA1 

YAF-FK11F+CTE1+0RE1 

XBA-FK22A*CTA2*CRA2 

XBE»FK22E*GTE2+GR£2 

CALL  CADn<7AA,2AE,XAA»XAE,XBA»XnE> 

XAA*FK12A*(?TA2*GRA1 
XAF»FK12E*GTE2+0R£1 
X8A«FK1?A*CTA1*GRA2 
X8F-FK12E+CTE1+0RF2 
CALL  CAD0(7BA»7PF»XAA»XAE.XRA,XRE) 

CALL  CADD(FN7A.ENZE,7AA»?AE.7BA.?PE> 

FN7A*R2«FN7A 
RETURN 
FND  IF 
ENO  IF 

1F(  HLRCVR.EQ.2I.6K'0.<LXMTR.EC.3)  ).CR.  <  (LRCVR.EC.3)  . 

*  ANT. ILXMTR.EG.2 > ) )  THEN 

PECFIVFR  IN  SFCO^D  LAYER - TRANSMITTER  IN  TURT  LAYER 

OR 

RECEIVER  IN  THIRI3  LAYER-  — TRANSMITTER  IN  SfrONC  LAYER 

R2W-CBRTI  A2HAG*A2MAC/CWAVENo*NA\/ENO  )  I  /  ALP*- A  2 

XAA-SGNA2*C1*DG22A2*'312A2 

XAE-DC22E2-AG12E2 

XBA-G22A2*DG12A? 

X0E-O22E?*rGl2E2 

c*ll  cabd<yaa,yae,vaa,xae,xba,xbe> 

XAA*SGNA2*D022A2«*012A1*C1 

XAE»nG22E2*0l2El 

YBA«0?2A?«CG12A1 

XBE«022E2+C0l2Et 

call  cadihyba^pe-xaa.xae.xpa.xbe) 

YAA»sGNA2*Cl«nG22Al*.Jl2A2 

XAE-rG22Fl*0l2E2 

XBA-O22Al*C0t2A2 

XBF.G22E1+C012E2 

CALL  CADDIYCA,XCE,XAA,XAE.XP#,XBE) 

XAA»SGNA?*Ct*D022Al*'3|2AI 

XAF«PG22El*Gl2El 

XBA«C22Al*r'U2Al 

XPE*C22F1+EiJ12E1 

CALL  CADIJf  VOA*VPE*XaA*XaE.XPa*XpEI 
XAA«YAA*KhATA1 

VAF-YAE+KHATEJ 

xBA«-YEA***-ATA2 

XPR.YPF+KPATF2 

CALL  rADC(FKi2A,FKi2E,XAA,XAE,XBA,XPEI 

XAA«-YCA*KPATA1 

xaf-ycf+khatei 

xBA«Y(*A*khaTA2 

XBF*YPF*KmatF2 
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441 

44? 

443 

444 

445 

446 

447 
446 

449 

450 

451 
45? 

453 

454 

455 

456 

457 

458  C** 

459 

460  C 

461  C 
46?  C 

463 

464 

465 

466 

467 
466 

469 

470 

471 
47? 

473 

474 

475 

476 

477 

478 

479 

480 
461 
48? 

463 

464 
485 

466 

467 

468 

489 

490 

491 
49? 

493 

494 

495 


CALL  CADr><FK22A,FK22E,XAA,XAE.XRA»XeE) 

!F(LRCVP.EC.2)  THFN 
7AA«FK12A*0TA2*CRA1 
7AE«FK12E*OTE?*0rE1 
7PA»FK22A*GTA2*CRA2 
7PE»FK2?E*0TE2*<5RE2 

CALL  CADD(EN7A,EN7E.7AA.ZAE,7RA,?nE> 

ELSE 

?AA«FK12A*OTAt*CRA2 

7AF-FK12E+0TE1+CRF2 

7f»A*FK22A«f'TA2»CRA2 

7PF»FK2?E*OTE2+CRF2 

CALI  CAD0<FN7A,EN7E,ZAA,2AE,7qA,?RE> 

END  IF 

FN7A*R2W*FN2A 

RETURN 

FND  IF 

IF< (LRCVR.EQ.31 .AND. <LXNTR.Er.3>  1  THEN 

RECFIVER  IN  THIRD  LAYER—  TRANSMITTER  IN  THIRD  LAYER 

R3-CPRT  (  ALPHA3*ALPHA3  /  (NAVENC*WA'/EN’C  1  )/( ALPNA3*M 

XAA»SGNA2*Cl*0(522Al*fll2A2 

XAE*DC22E1+Q12E2 

XBA«G22A1*DG12A2 

XBE-022E1+D012E2 

CALL  CADD(YAA.YAE.XAA,XAF.XPA.XPE) 

XAA-SGNA2*C23A2*EG33A1/C3 

XAE*023E2*DQ33El 

XBA*DC23A2*Q33At 

XBE-0C23E2+fl33El 

CALL  CADD(YPA,YRE,XAA.XAE,XBA,XRE» 

X  A  A«SGNA2*C  1*0(522  A2*'H2A2 
XAE-0C22F2+012E? 

XBA«0?2A2*Cfll2A2 
XBE-I522E2  +  0012E2 

CALL  CADD( YCA.YrE.XAA.XAE.XRA.XRE) 

XAA*SGNA2*DG33A1*G23A1/C3 

XAf«D033E1+023E1 

XBA«fl33Al*Cfl23Al 

XBF.033E1+D023E1 

CALL  CADD( YDA.YTIE.XAA.XAE.XPA.XRE) 

XAA«SGNA?*Cl*0022 Al*fll2Al 
XAE»nC22El*0l2El 
XBA-C22A1 *D012A1 
XBE-C22E1+E012E1 

CALL  CADD(YEA.YEE,XAA,XAE,XRA.X0E> 

XAA«$GNA?*Cl*n<3z?A2*'512Al 

XAE«DC22F.2*012Fi 

XBA-G?2A?*C012A1 

XBF-G22F2+D012E1 

CALL  CAD0(YFA,YFE.XAA#XAE,XBA,XRE) 

xaa»-yaa*ypa*khatai 

XAE»YAF*YBE*KHATEt 
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496 

XBA»YCA*YDA«KHATAl 

497 

X8E«YCE-»Y0F*KHATEl 

498 

CALL  CA0D(7AA»7AE,XAA»XAE,XPA.XBE> 

499 

XAA»YEA*Y8A*KHATA2 

500 

XAF«YEF+YBE+KHATE2 

501 

XBA«-YFA*YDA«*HATA2 

502 

XBE-YFE+YDE+KHATE2 

503 

CALL  CADTH7RA,7pE,XAA»XaE,XPA»Xc>E> 

504 

CALL  CADI5(FK22a»FK22E»7AA»7AE»7bA»7BE) 

505 

FN7A«R3*0TA?*(3RA2*EK22A 

506 

FN7E-CTF2+0RE2+FK22E 

507 

RETURN 

508 

END  !  F 

509  C**< 

ft** 

510 

FND 

178 


SUBROUT  INF  M0DSUM{ECMS»E!MS.RNG»7RCVR»7XMTR»7FP0S*NRZ»NRM0tE  ) 


1 

2  C 

3  C  THIS  PROGRAM  evaluates  THE  field  STRENGTH  IK  A  TR1LINEAR 

4  c  model  of  the  modified  REPRACTIVITY  of  the  troposphere  relative  to 

5  c  the  fref  space  value,  the  F I  El.r  IS  HORIZONTALLY  PCLARI’ED. 

6  C 

7  C  INPUTS... 

6  c  PNG  -  RANGEIIN  KILOMETERS)  AT  WHICH  THE  FIELD  STRENGTH 

9  C  IS  TO  PE  FVALUATED. 

10  C  7RCVR  -  HFIGHT  (IN  METERS)  AT  WHICH  THE  FIELD  STRENGTH 

11  C  IS  TO  RE  EVALUATED. 

12  C  ZXMTR  -  HEIGHT  (IN  METERS)  CF  THE  TRANSMITTER 

13  C  7ER0S  -  ARRAY  CONTAINING  THE  M£PAL  EIGENVALUES  Oil 

14  C  NRZ  -  DIMENSION  OF  ARRAY  »7ER0S* 

15  C  NRMOEE  -  NUMPER  OF  MOrAL  EIGENVALUES  CONTAINED  IN  aRP»Y  '7ERCS 

16  C 

17  C  OUTPUTS... 

16  C  ECMS  -  COHERENT  MODE  SUM  FIELD  STRNGTH  (IK  DP)  RELATIVE 

19  C  TO  FRFE  SPACE  VALUE 

20  C  EIMS  -  INCOHERENT  MODE  SUM  FIELD  STRENGTH  (IN  DR)  RELATIVE 

21  C  TO  FREE  SPACE  VALUE 

22  C 

23  C  SUBROUTINES  USED.... 

24  C  FXCFAC,HTGAlN,CADn,AnCY 

25  c********** 

26  implicit  double  precision**  (a-h,o-z) 

27  COMPLEX  ZfROS.XFACjiENlA^CEXP.I.RHO.CSQRT.HFACA.SUMCA.XAA.XPA 

26  COMPLEX  SONG 

29  DIMENSION  IER0S(NR7) 

30  common/comtno/etaabs#alphai.h.cii.scng 

31  C0MM0N/C0MTHR/Z2,Z3*A2MAG*ALPHA3,WAVEN0.ALPHA2 

32  DATA  1/(0. 0*1.0)/ 

33  DATA  PI/3. 14159265/ 

34  DATA  EL0G10/0. 434294462/ 

35  C***** 

36  C  INITIALIZE 

37  C 

36  rNGMbRNG* 1000.0 

39  BETA-2. 0*SQRT(2.0*PI*RNGM ) 

40  A1H-1.0-ALPHAI*H 

41  C11SC>C11*C11 

42  SUNCA-(0. 0*0.0) 

43  SUMCE-0.0 

44  XRA» ( 0 . 0*  0 .0 ) 

45  XBE-0.0 

46  SUMI A-0.0 

47  SUMTE-0.0 

46  XDA-0.0 

49  XDE-0.0 

50  C 

51  C  EVALUATF  MODE  SUMS 

52  C 

53  DO  100  JMODE-l.NRMODE 

54  RHO-WAVFNO*CSQRT( A1H*I*ETAARS-C1  1SC*7ER0S( JMCDE) ) 

55  HFACA-CFXP(-I*(REAL(RHO)-WAVENO)*RNGM) 


56  HFACE-AIMAGIRHOURNGM 

57  CALL  EXCEAC<xFAC,XFACE,7ERQ«i(  Jt'Onrn 

56  CALL  HTGAIN<EN7A.EN7E,7EROS( JRCrE).7RCVR,7XMTP) 

59  XAA«XFAC*FN7A*HFACA 

60  XAE-XFACE+FN7E+HFACF 

61  C 

62  C  COHERENT  NOEE  SUH 

63  C 

64  CALL  CAct!»SUHCA»SlJMCf:,XAA,yAl:,XRA,yPE  » 

65  XflA-SIJNCA 

66  XRE-St'FCF 

67  C 

66  C  INCOHERENT  HOOE  SUM 

69  C 

70  XCA-CAPS<XAA)*CAPS(XAA) 

71  XCE«2.0«XAE 

72  CALL  ADCX  (SIJHI  A,StJMIE,XCA,XCE,XCA,XDF  ) 

73  XDA-SUHIA 

74  XDF-SUNIE 

75  100  CONTINLF 

76  C 

77  C  CALCULATE  COHERENT  N0OE  SUH  FIELO  STRENGTH 

76  C 

79  FCMS»20.0*(DLnGlO(BETA*CARS(SLNCA) > +SUMCE*ELrP  1  0  ) 

80  C 

61  C  CALCULATE  INCOHERENT  HOPE  SUM  FIELP  STRENGTH 

82  C 

83  EIMs«20,0*n3LoGi(i(RETA*SGRTISlHI  A)  >  +  0.5*SUHIF*ELcGl0) 

64  RETURN 

85  C**«** 

66  END 
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1  SUBROUTINE  $EAH20(SlGEFF.EP3EFF.T.S.FREQ) 

2  C********** 

3  C  TM'IS  PROGRAM  EVALUATES  THE  REAL  EFFECTIVE  RELATIVE 

4  C  eiflectric  CONSTANT  AND  the  real  effective  conductivity 

5  C  OF  SFAWATFR  AS  A  FUNCTION  OF  TEMPERATURE.  SALINITY.  AND 

6  C  FREQUENCY.  this  program  is  rased  on  the  paper* 

7  C  L.A.  KLEIN  AND  C.T.  SWIFT  » AN  IMPROVED  MODEL  FOR  THE 

s  c  dielectric  constant  of  sea  water  at  microwave 

9  C  FREQUENCIES*  IEEE  TRANS.  ANT.  AND  PROP..  VOL.  25  (1977) 

10  c  104-111. 

11  C 

12  c  note*  the  values  this  program  gives  for  epseff  and 

13  C  SIGEFF  AS  THE  SALINITY  APPROACHES  ZERO  ARE  NOT 

14  C  CONTINUOUS  WITH  THE  VALUES  GIVEN  WttfcN  THE  SALINITY 

15  C  EQUALS  ZERO.  SEE  THE  PAPER  BY  KLEIN  AND  SWIFT. 

16  C 

17  C  INPUTS... 

16  C  T  -  TEMPERATURE  OF  SEAWATER  (IN  DEGREES  CELSIUS) 

19  C  S  -  SALINITY  of  SEAWATER  (IN  GRAMS  SALT/KG  SEAWaTER) 

20  C  FREQ  -  FREQUENCY  (IN  HERTZ) 

21  C 

22  C  OUTPUTS... 

.23  C  SIGEFF  -  THF  REAL  EFFECTIVE  CONDUCTIVITY  (IN  SI/M) 

24  C  FPSFFF  -  THF  REAL  EFFECTIVE  RELATIVE  DIELECTRIC  CONSTANT 

25  C 

26  c  note*  the  Complex  dielectric  constant,  eps.  is  equal  to 

27  C  EPS-EPSEFF-I*SIGEFF/(2*PI*FREC*EP50) 

26  C  WHERE  EPSo  IS  THE  PERMITTIVITY  OF  FREE  SPACE 

29  C#«**«****. 

30  implicit  double  precisions  ia-h.o-Z) 

31  DATA  pi/3.1415926530/ 

32  DATA  EPS0/8.65434E-I2/ 

33  C 

34  OMEGA-?. 0*Pl«FREG 

35  C*«*«* 

36  C  CALCULATE  THE  STATIC  DIELECTRIC  CONSTANT 

37  C 

36  IF(S.GT.O.O)  THEN 

39  ET«87.l34*T*(-0.1949*TM-l,276E-2+2.A9lE-A«T )  ) 

40  AST«t,o*1.6l3E-5«S*T.S*(-3.656E-3+S*(3.210E-5-4.232E-7*S) ) 

41  ES«ET*AST 

42  ELSE 

43  ES»S8.0A5*T*{-0.A147«.T*(e.295E-4  +  1.075E-5*T)  > 

44  END  IF 

45  C**«*« 

46  C  CALCULATE  THE  RELAXATION  TIME 

47  C 

48  TTM.768E-1 1+T*(-6.056E-13*T*(  l.t 04E-14-8.il  1E-17*T) ) 

49  BsT«1.0*2.282E-5*S*T+SM“7.638E-4+S* ( -7.760E-6+ 1 . 1 05E-8*S ) ) 

50  T*U-TT«BST 

51  C 

52  C  CALCULATE  THE  IONIC  CONDUCTIVITY 

53  C 

54  DEL-25. 0-T 

55  8ETA»2.033E-2  +  DELM1.266E-4*2.464E-6*DEL)-SMt.849E-5 
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56  *  ♦  DELM-2.551E-7*2.551E-8*DEL>  > 

57  S!G«3M0.182521+S*<-1.46l92E-3*S*<2.09324E-5-1.2e205E-7*S>  )  ) 

58  SIGMA-SIG*DEXP(-DEL*BETA> 

59 

60  C  CALCULATE  THE  REAL  EFFECTIVE  RELATIVE  DIELECTRIC  CONSTANT 

61  C 

62  FPSINF*4V9 

63  FAC«<ES-EP3INF>/(1.04<0MEGA*TAU>**2) 

64  FPSEFF»EPS!NF«-FAC 

65  C****« 

66  C  CALCULATE  THE  REAL  EFFECTIVE  CONDUCTIVITY 

67  C 

66  S!GEFF>oMEGA*oHEGA*TA'j*EPSO*FAC+SlGMA 

69  C***«* 

70  RETURN 

71  END 


a 


J 
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.  ii 


*  *  •* 


nU'v  v’  •: 


1 

2  C*< 

3  C 

4  C 

5  C 

6  C 

7  C 
0  C 

9  C 

10  C 

11  C 

12  C« 

13 

14  C 

15  C 

16  C 

17 

16  C* 

19  C 

20  C 

21 

22  C« 

23  C 

24  C 

25  C 

26 
27 

26  C « 

29  C 

30  C 

31 

32 

33 


SUBROUTINE  DH0RI7(DH7,ZRCVR.ZXMTR) 


THIS  PROGRAM  CALCULATES  THE  H0R17oN  CISTANCF  FOR  A  RECEIVER 
AT  HEIGHT  7RCVR  AND  A  TRANSMITTER  AT  HFIGHT  ?XmtR 

INPUTS... 

ZRC VP  -  RECEIVER  HEIGHT  {IN  METERS) 

ZXMTR  -  TRANSMITTER  HEIGHT  UN  1ETERS) 

OUTPUTS... 

I)H’  -  HORIZON  DISTANCE  (IN  KILOMETERS) 


implicit  couple  precision**  (a-h,o-7> 

RADIUS  OF  EARTH  (IN  METERS) 

DATA  P/6.378160E6/ 

i 

CALCULATE  EFFECTIVE  EARTH  RADIUS 
REFF-4.0*R/3.0 

CALCULATF  APPROXIMATE  HQR I 7QN  DISTANCE  FOR  RECEIVER  AND 
TRANSMITTER 

HRCVR»DS0RT(2.0*REFF*7RCVR) 

HXMTR«CSQRT(2.0*REFF*ZXMTR) 

» 

combinfe  horizon  distance  in  kilometers 

DHZ«(HRCVR*HXMTR ) *  1 .OE-3 

RETURN 

END 


V  v  *  :  .  . 


10.  SAMPLE  OUTPUT  FROM  XWVG 


FPFO  « 
ALPWAl  • 
ALPHA?  » 

alphas  ■ 
7?  » 

▼3  « 
ALOSS  - 


5?0.00u0  NH7 

0.2.36iiF-06  /*» 
-0.6496F-0 f>  /H 
0.51«4F-i)6  /*-' 
182.9000  * 

304, AGOG  m 

1.00U0  DH'KH 


M  O.OP)  »  341.00 
HORIZONTAL  PPLARt7Atimi 


•PaWaTEP  TFMPERaTUPF 

•fawatep  salinity  ■ 


1.6000F+01  T1FGPPFS  CELSIUS 
3.5000F  +  0!  pPAMS  S4LT  /Pp  SEA'-'ATFP 


TFLTA  ■  0 . OOOoF+Ul)  * 

FPSGNO  -  6.5257E-10  FaRADS/N 

SGMGNE  a  4.4544F+G0  NpOS/H 

FT  A  a  O.OOOOE+OO 


7EPCS  FOUND  IK  FXPANTFr  SEARCH  RECTANGLE  DEFINED  PY 


TLFFT  - 

0.00 

TRIGHT  a  2.00 

TeCT  a  o.nc 

TTOD  a 

2 

FIGENI 

1)  ■  1.0946E+90 

1.5C15E-04 

7EPC3  FOUND  IN  FXPANfFr  SFAP^N  RECTANGLE  DEFINED  dY 

TLFFT  ■  -2.0u  TPIOHT  ■  0.00  Tt>CT  a  o.OO  T7CD  a  ? 


figeni  n  * 
FIGPMI  ?1  « 


-1 .3124E+00 
-1.4630E-01 


ft.Ar07E-06 

3.S252E-05 


7 C R 0 8  FOUND  in  FXPANrEP  S E A P C H  RECTANGLE  DEFINED  ->Y 

TLFFT  •  -4.00  TRIGHT  ■  -2.00  TPCT  »  0.00  TTOP  a  2 


FIGEMI  II  »  -2.3A9(;F  +  00  A.6P58E-07 


MS 


i  «-•  »-*  fci  *■  m 
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7 p P 0 S  FOUND  IK  FVPANrEC  SEARCH  RECTaNGLF  DEFINED  DY 

TLFFT  ■  -6.00  T  R  I GHT  ■  -4.00  TPCT  =  0.00  T70R 


FIGENI  1)  ■  -4.2052E+00  2.2410E-09 


7ER0S  FOUND  IK  EXPANDED  SEARCH  RECTANGLE  DEFINED  RY 

TLFFT  *  -8.00  TRIGHT  »  -6.00  TPCT  *  O.DC  TTOR 


7ER0S  FOUND  IK  E YPANCET  SEARCH  RECTANGLE  DEFINED  D  Y 

TLFFT  *  -10.00  TRIGHT  »  -8.00  TPCT  *  0.00  TTQP 


7EP0S  FOUND  IK  EXPANDED  SEARCH  RECTANGLE  DEFINED  PY 

TLFFT  ■  -12.00  TRIGHT  ■  -10.00  TPCT  -  0.00  TTO? 


7EPCS 

FOUND  IN  E XPANpET  SE8RCH 

rectangle 

defined  py 

TLFFT 

*  -14.00 

TRIGHT  ■  • 

-12.00 

TPCT  -  0.00 

TTOR 

7pPCS 

found  ik  expancft  search 

rectangle 

Defined  ry 

TLFFT 

■  -16.00 

TRIGHT  -  ■ 

-14.00 

TPCT  *  0.00 

TTOP 

7FR0S  FOUND  IN  EXPANDED  SEARCH  RECTaKGLF  DEFINED  nY 

TLFFT  ■  2.00  TRIGHT  ■  4.00  TPCT  e  n.OC  7TCP 


E IGFK (  1)  « 

EIGEN <  2)  > 


2.4514E+00 

3.8044E+00 


3.6817E-03 

5.P61IE-02 


7pRpS  F0"ND  IN  EXPANDED  SEARCH  RECTANGLE  DFFINFD  PY 

TLFFT  ■  4.00  TRIGHT  ■  6.00  TPCT  ■  0.00  TTCP 


EIGEN!  1)  ■  e>.?977E*00  2.901QE-01 


7FR0S  FOUND  IN  EXPANDED  SEARCH  RFCTaNGLF  PFFtNED  PY 

TLFFT  ■  6.00  TRIGHT  ■  6.00  TPCT  =  O.OC  TTCP 


EIGEN (  1)  -  7.0447E+00  6.3569E-01 


7ER0S  FOUND  IN  EXPANDED  SEARCH  RFCTaNGLE  DEFINED  BY 

TLFFT  *  A. 00  TRIGHT  ■  10.00  TPCT  *  0.00  TTCP 


EIGEN !  1)  ■  O.1272E+00  9.7805E-01 


7FR0S  FOUND  IN  EXPANDED  SEARCH  RECTaNGLF  DEFINED  PY 

TLEFT  ■  10.00  TRIGHT  ■  12.00  TPCT  ■  0.00  TTCP 


EIGEN!  1)  ■  1.1 421E+0 1  1.3358E+00 


7FR0S  FOUND  IN  EXPANDED  SEARCH  RECTANGLE  DEFINED  RY 

TLFFT  ■  12.00  TRIGHT  -  14.00  TPCT  -  0.00  TTCP 


EIGEN!  1)  ■  1.3989E+01  1.6259E+00 


tfros  found  in  expanded  search  rectangle  defined  by 

TLFFT  *  14.00  TRIGHT  ■  16.00  TPCT  »  0.00  TTCP 


EIGEN!  t»  - 


1 .3989E+0 1 


1.6259E+00 


7pR0S  FOUND  IN  FXPANDFP  SE*RCe  RECTANGLF  DFMNED  BY 

TLFFT  *  16.00  TRIGET  *  18.00  TBCT  =  O.OC  TTCP  =  2 


EIGFM  1)  = 


1.6795E+01  1.9917E+00 


7pR0S  FOUND  IN  EXPANDED  SEARCH  RECTANGLF  DEFINEl'  BY 


TLFFT  - 

18.00 

TP1GET  a  20.00 

TPCT  =  0.00 

TTCP  * 

2 

r*k 

EIGFM 

1)  «  1 . 9  7  3  9E  +  0 1 

2 . 2808E+00 

7pR0S  FO'INP  IN  EXPANDED  search  RECTANGLF  EFFINFD  by 
TLFFT  ■  20.00  TRIGET  *  22.00  TPCT  ■  0.00 


TTCP  * 


7pR0S  FOUND  IN  EXPANOpD  SpARCt^ 
TLEFT  -  22.00  TRIGET  - 


rectangle  defined  by 

24.00  TBCT  *■  n.OC 


TTCp  •  2 


EIGFM  1) 


2.3103E+01  2.6178P+00 


7FR0S  FOUND  IN  EXPANDED  SEARCH  RECTANGLE  DEFINED  bY 

TLFFT  ■  24.00  TRIGET  •  26.00  TFCT  «=  0.00  TTCP  *  2 


7FR0S  FOUND  IN  FXPaNDFD  SEARCH  RECTaNGLF  DFFINED  nY 

TLFFT  ■  26.00  TRIGET  ■  28.00  TBCT  =  0.00  TTCP  *  2 


7fros  found  in  pxpANnpD  search  rfctanglf  defined  by 
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UNCLASSIFIED 


TLFFT  ■  24*00 


TRIGHT  ■  30.00 


TBCT  • 


ft. 00 


TTCP  - 


7FR0S 

FOUND  IN  EXPANDED  SEARCH 

bectanglf 

defined  by 

TLFF7 

»  30.00  TRIGHT  » 

32.00 

TBCT  =  ft. 00 

TTCP  ■ 

2 

?FR08 

FOUND  IN  EXPANDED  SEARCH 

rectangle 

CFFINED  BY 

TLFFT 

»  32.00  TRIGHT  ■ 

34.00 

TPCT  -  0.00 

TTCP  * 

2 

SOLUTIONS  OF  TH:  MODAL  EOLATION 


011( 

K  • 

-4.20S2E+00 

2.24I0E-09 

thetai 

1) 

M 

3.2552E-13 

2.67 

OIK 

2)  ■ 

-2.5895E400 

4.685SE-07 

THETA( 

2) 

m 

6.8669E-11 

2.64 

OIK 

3 )  • 

-1.3124E400 

8. 80070-06 

theta ( 

3) 

m 

1.29*90-09 

2.63 

OIK 

41  - 

-1.4630E-01 

3.9252E-05 

THETA( 

4) 

m 

5.83170-09 

2.61 

C|l( 

5)  - 

1 .0946E400 

1.58150-04 

thetac 

5) 

m 

2.3665E-08 

2.59 

ClK 

6)  » 

2.45140400 

3.6S17E-03 

theta C 

6) 

■ 

5.5526E-07 

2.57 

OjK 

71  • 

3.S044E+00 

5.86l lE-02 

THETA ( 

7) 

u 

8.91050-06 

2.55 

OIK 

SI  ■ 

5.2977E+00 

2.9019E-01 

THET  A ( 

8) 

* 

4.45150-05 

2.53 

OIK 

9 1  ■ 

7.0447e*00 

6.3569E-01 

THETA( 

9) 

u 

9.4564E-05 

2.50 

OIK 

101  ■ 

9.12720400 

9.78050-01 

thet  a ( 

10) 

u 

1.5364E-04 

2.47 

OlK 

11)  ■ 

1.1421F«01 

1.33580400 

theta  I 

11  > 

m 

2.1297E-04 

2.43 

8  IK 

12)  • 

I.3989E401 

1.62590400 

THETA( 

12) 

9 

2.6368E-04 

2.39 

OlK 

13)  • 

1.67950401 

1.99170400 

TH0T  A ( 

13) 

m 

3.2932E-04 

2.34 

ClK 

14)  ■ 

1.97S9E401 

2.28080400 

THETA ( 

14) 

■ 

3.85320-04 

2.29 

ClK 

15)  • 

2.3lo3E40| 

2.61780400 

THETA! 

15) 

■ 

4.5343E-04 

2.24 

FIELD  STRENGTH  RELATIVE 

TO  FREE  SPACE 

VALUE 

RANGE 

ZXMTR 

7RCVR 

coherent 

incoherent 

HORIZON 

(*M) 

(Ml 

(M) 

MODE  SUM 

MODE  SUM 

DISTANCE 

(DP) 

(PR) 

(KM) 

185.32 

30.480 

0.000 

-68.7303 

-57.8077 

22.77 

185.32 

30.480 

2.000 

-19.6558 

-8.7226 

28.60 

185.32 

30.480 

4.000 

-13.7076 

-2.7435 

31.02 

185.33 

30.48C 

6.000 

-10.2968 

0.7192 

32.87 

185.3? 

30.480 

8.000 

-7.9531 

3.1361 

34.43 

185.3? 

30.480 

10.000 

-6.2162 

4.9679 

35.81 

185.33 

30.480 

12.000 

-4.8815 

6.4194 

37.06 

185.32 

30.480 

14.000 

-3. 84J0 

7.5994 

38.20 

185.32 

30.480 

16.000 

-3.0307 

8.5726 

39.27 

185.32 

30.480 

18.000 

-2.4098 

9.3802 

40.27 

185.3? 

30.480 

20.000 

-i.9?in 

10.0503 

41.21 

185.3? 

30.480 

22.000 

-1.6348 

10.6024 

42.11 

185.32 

30.480 

24.000 

-1.4466 

1  1.0509 

42.97 

185.32 

30.480 

26.000 

-1.3746 

11.4064 

43.80 

185.3? 

30.480 

28.000 

-1.4074 

11.6771 

44.59 

185.32 

30.480 

30.000 

-1.5330 

1  1.8693 

45.36 

185.32 

30.480 

32.000 

-1.7360 

11.9882 

46.10 

185.32 

30.480 

34.000 

-1.9951 

12.0383 

46.82 

185.32 

30.480 

36.000 

-2.2798 

12.0234 

47.51 

185.32 

30.480 

38.000 

-2.5512 

11.9473 

48.19 

185.32 

30.480 

40.000 

-2.7582 

11.8141 

48.85 

185.3? 

30.480 

42.000 

-2.8472 

11.6283 

49.50 

185.32 

30.480 

44.000 

-2.7757 

11.3957 

50.13 

185.3? 

30.480 

46.000 

-?.5264 

11.1233 

50.74 

185.32 

30.480 

48.000 

-2.1143 

10.8204 

51.34 

185.32 

30.48G 

50.000 

-1.5787 

10.4984 

51.93 

185.32 

30.480 

52.000 

-0.9676 

10.1715 

52.51 

185.32 

30.480 

54.000 

-0.3248 

9.8562 

53.07 

185.32 

30.480 

56.000 

0.3167 

9.5705 

53.63 

185.32 

30.480 

58.000 

0.9352 

9.3314 

54.18 

185.3? 

30.480 

60.000 

1.5183 

9.1532 

54.71 

185.32 

30.480 

62.000 

2.0600 

9.0440 

55.24 

185.32 

30.480 

64.000 

2.5587 

9.0042 

55.76 

185.32 

30.480 

66.000 

3.0153 

9.0266 

56.27 

185.32 

30.480 

68.000 

3.4318 

9.0978 

56.78 

185.32 

30.480 

70.000 

3.8103 

9.2011 

57.27 

185.32 

30.480 

72.000 

4.1528 

9.3193 

57.76 

185.32 

30.480 

74.000 

4.4602 

9.4366 

58.25 

1*5.32 

30.48G 

76.000 

4.7322 

9.5399 

58.72 

185.32 

30.480 

78.000 

4.9672 

9.6193 

59.19 

1 85.32 

30.480 

*0.000 

5.1623 

9.6680 

59.66 

185.32 

30.480 

*2.000 

5.3132 

9.6821 

60.11 

185.3? 

30.480 

84.000 

5.4143 

9.6604 

60.57 

185.32 

30.480 

86.000 

5.4590 

9.6039 

61.01 

185.32 

30.480 

88.000 

5.4396 

9.5161 

61.46 

185.32 

30.480 

90.000 

5.3476 

9.4021 

61.89 

185.3? 

30.480 

92.000 

5.1737 

9.2693 

62.33 

185.32 

30.480 

94.000 

4.9079 

9.1263 

62.75 

185.3? 

30.480 

96.000 

4.5401 

8.9828 

63.1* 

185.32 

30.480 

96.000 

4.0608 

8.8487 

63.60 

185.32 

30.480 

100.000 

3.4633 

8.7331 

64.01 

1«5.32 

30.480 

102.000 

2.7492 

8.6430 

64.42 

185.32 

30.480 

104.000 

1.9395 

8.5827 

64.83 

185.3? 

30.480 

106.000 

1 .0961 

8.5528 

65.23 

185.32 

30.480 

108.000 

0.3532 

8.5503 

65.63 

185.32 

30.480 

110.000 

-0.0739 

8.5693 

66.02 

185.3? 

30.480 

112.000 

0.0218 

8.6020 

66.41 

185.32 

30.480 

1 14.000 

0.6666 

8.6398 

66.80 

I 


tj 


R) 


ii  -  a— 
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185.3? 

30.460 

116.000 

1.6773 

8.6745 

67.19 

185.3? 

30.460 

118.000 

2.6226 

8.6991 

67.57 

185.3? 

30.460 

1?0.000 

3.9438 

8.7oei 

67.95 

165.3? 

30.460 

122.000 

4.9591 

8.6984 

68.32 

165.3? 

30.460 

124.000 

5.6347 

8.6686 

68.69 

185.3? 

30.460 

126.000 

6.5594 

8.6196 

69.06 

185.3? 

30.460 

128.000 

7.1312 

8.5544 

69.43 

185.3? 

30.460 

130.000 

7.5505 

8.4774 

69.79 

165.3? 

30.460 

132.000 

7.6178 

8.3946 

70.15 

165.3? 

30.460 

134.000 

7.9315 

8.3123 

70.51 

185.3? 

30.460 

136.000 

7.6879 

8.2372 

70.66 

165.3? 

30.460 

138.000 

7.6802 

8.1751 

71.22 

165.3? 

30.460 

140.000 

7.2993 

8.1301 

71.57 

185.3? 

30.460 

142.000 

6.7340 

8.1044 

71.91 

185.3? 

30.460 

144.000 

5.9749 

8.0976 

72.26 

185.3? 

30.460 

146.000 

5.0246 

8.1071 

72.60 

165.3? 

30.480 

146.000 

3.9254 

8.1283 

72.94 

185.3? 

30.460 

150.000 

2.6227 

8.1557 

73.28 

185.3? 

30.460 

152.000 

2.0505 

6.1634 

73.61 

185.3? 

30.480 

154.000 

2.0454 

8.2059 

73.95 

185.3? 

30.480 

156.000 

2.9106 

8.2ie6 

74.28 

165.3? 

30.460 

156.000 

4.2767 

8.2184 

74.61 

185.3? 

30.460 

160.000 

5.7398 

8.2040 

74.94 

185.3? 

30.480 

162.000 

7.0905 

8.1751 

75.26 

185.3? 

30.460 

164.000 

8.2566 

8.1337 

75.58 

165.3? 

30.480 

166.000 

9.2246 

8.0624 

75.90 

165.3? 

30.480 

168.000 

10.0009 

8.0253 

76.22 

185.3? 

30.460 

170.000 

10.5953 

7.9667 

76.54 

185.3? 

30.460 

172.000 

11.0168 

7.9109 

76.86 

185.3? 

30.460 

174.000 

11.2720 

7.8616 

77.17 

165.3? 

30.480 

176.000 

11.3637 

7.6213 

77.48 

165.3? 

30.480 

178.000 

11.2919 

7.7909 

77.79 

165.3? 

30.460 

180.000 

11.0534 

7.7699 

78.10 

185.3? 

30.480 

182.000 

10.6430 

7.7561 

78.4,1 

165.3? 

30.460 

164.000 

10.0546 

7.7467 

78.71 

165.3? 

30.480 

186.000 

9.2906 

7.7416 

79.01 

165.3? 

30.460 

188.000 

8.3716 

7.7441 

79.32 

165.3? 

30.480 

190.000 

7.3596 

7.7566 

79.62 

165.3? 

30.480 

192.000 

6.4019 

7.7822 

79.91 

185.3? 

30.460 

194.000 

5.7635 

7.8220 

80.21 

185.3? 

30.460 

196.000 

5.7329 

7.8775 

80.51 

185.3? 

30.460 

196.000 

6.3663 

7.9494 

80.80 

165.3? 

30.460 

200.000 

7.4356 

8.0383 

81.09 

185.3? 

30.460 

202.000 

6.6476 

6.1439 

81.38 

165.3? 

30.460 

204.000 

9.6260 

8.2659 

81.67 

165.3? 

30.460 

206.000 

10.6939 

8.4032 

81.96 

165.3? 

30.460 

208.000 

11.6268 

6.5546 

82.25 

165.3? 

30.460 

210.000 

12.6314 

8.7193 

82.53 

165.3? 

30.460 

212.000 

13.3109 

8.6049 

82.82 

165.3? 

30.460 

214.000 

13.8767 

9.0796 

83.10 

185.3? 

30.480 

216.000 

14.3463 

9.2713 

83.36 

165.3? 

30.460 

216.000 

14.7239 

9.4675 

83.66 

185.3? 

30.460 

220.000 

15.0206 

9.6658 

83.94 

165.3? 

30.480 

222.000 

15.2449 

9.8635 

84.22 

165.3? 

30.480 

224.000 

15.4035 

10.0577 

84.49 

85.32 

30. 

80 

226.000 

15.5028 

10.2458 

64.77 

85.32 

30. 

80 

226.000 

15.5482 

10.4250 

65.04 

85.32 

30. 

80 

230.000 

15.5448 

10.5928 

65.31 

-- j 

85.32 

30. 

80 

232.000 

15.4969 

10.7468 

85.59 

f  } 

85.32 

30. 

80 

234.000 

15.4085 

10.8846 

65.86 

85.32 

30. 

80 

236.000 

15.2631 

11.0044 

86.12 

85.32 

30. 

80 

236.000 

15.1240 

11.1042 

86.39 

85.32 

30. 

80 

240.000 

14.9340 

11.1825 

66.66 

85.32 

30. 

80 

242.000 

14.7157 

11.2380 

86.93 

85.32 

30. 

80 

244.000 

14.4714 

11.2695 

87.19 

85.32 

30. 

80 

246.030 

14.2030 

11.2762 

87.45 

mk 

85.32 

30. 

80 

248.000 

13.9125 

11.2573 

87.72 

85.32 

30. 

80 

250.000 

13.6012 

11.2123 

87.98 

85.32 

30. 

80 

252.000 

13.2705 

11.1406 

88.24 

85.32 

30. 

80 

254.000 

12.9217 

11.0426 

88.50 

, 

85.32 

30. 

80 

256.000 

12.5556 

10.9175 

88.75 

85.32 

30. 

80 

256.000 

12.1732 

10.7657 

89.01 

85.32 

30. 

80 

260.000 

11.7751 

10.5872 

89.27 

85.32 

30. 

80 

262.000 

11.3621 

10.3823 

89.52 

85.32 

30. 

80 

264.000 

10.9348 

10.1512 

89.76 

85.32 

30. 

80 

266.000 

10.4938 

9.8944 

90.03 

85.32 

30. 

80 

266.000 

10.0396 

9.6123 

90.26 

85.32 

30. 

80 

270.000 

9.5730 

9.3056 

90.54 

85.32 

30. 

80 

272.000 

9.0947 

8.9748 

90.79 

m 

•5.92 

30. 

80 

274.000 

6.6055 

8.6207 

91.04 

85.32 

30. 

80 

276.000 

6.1063 

8.2441 

91.28 

.85.92 

30. 

60 

276.000 

7.5984 

7.8460 

91.53 

55.32 

30. 

60 

260.000 

7.0630 

7.4275 

91.78 

•5.92 

30. 

60 

262.000 

6.5616 

6.9898 

92.02 

•3.92 

30. 

60 

284.000 

6.0360 

6.5343 

92.27 

•5.92 

30. 

60 

286.000 

5.5083 

6.0627 

92.51 

85.32 

30. 

60 

286.000 

4.9606 

5.5769 

92.76 

$ 

•S.92 

30. 

80 

290.000 

4.4562 

5.0791 

93.00 

85.32 

30. 

60 

292.000 

3.9376 

4.5719 

93.24 

85.32 

30. 

60 

294.000 

3.4283 

4.0583 

93.48 

'  * 

•5.92 

30. 

60 

296.000 

2.9322 

3.5416 

93.72 

V* 

85.32 

30. 

60 

296.000 

2.4536 

3.0288 

93.96 

•5.92 

30. 

80 

300.000 

1.9977 

2.5160 

94.20 

•5.32 

30. 

80 

302.000 

1.5692 

2.0214 

94.44 

e* 

85.92 

'30. 

60 

304.000 

1.1743 

1.5434 

94.68 

y. 

85.32 

30. 

80 

306.000 

0.6167 

1.0913 

94.91 

* 

85.32 

30. 

60 

306.000 

0.5035 

0.6676 

95.15 

85.32 

30. 

60 

310.000 

0.2255 

0.2716 

95.38 

85.92 

30. 

80 

312.000 

-0.0166 

-0.0987 

95.62 

85.32 

30. 

60 

314.000 

-0.2324 

-0.4445 

95.65 

85.32 

30. 

60 

316.000 

-0.4191 

-0.7674 

96.06 

85.32 

30. 

60 

316.000 

-0.5820 

-1.0689 

96.31 

83.32 

30. 

60 

320.000 

-0.7240 

-1.3504 

96.54 

85.32 

30. 

60 

322.000 

-0.6478 

-1.6134 

96.77 

85.32 

30. 

60 

324.000 

-0.9559 

-1.8591 

97.00 

85.32 

30. 

60 

326.000 

•1.0504 

-2.0890 

97.23 

•3.32 

30. 

60 

326.000 

-1.1333 

-2.3042 

97.46 

85.32 

30. 

60 

330.000 

-1.2063 

-2.5058 

97.69 

85.32 

30. 

•0 

332.000 

-1.2708 

-2.6960 

97.91 

•5.32 

30. 

80 

334.000 

-1.3282 

•2.6726 

96.14 

v» 


165.32 

30.460 

336.000 

165.32 

30.460 

336.000 

165.32 

30.460 

340.000 

165.32 

30.460 

342.000 

165.32 

30.480 

344.000 

165.32 

30.460 

346.000 

165.32 

30.460 

346.000 

165.32 

30.460 

350.000 

165.32 

30.460 

352.000 

165.32 

30.460 

354.000 

165.32 

30.460 

356.000 

165.32 

30.460 

356.000 

165.32 

30.460 

360.000 

165.32 

30.460 

362.000 

165.32 

30.480 

364.000 

165.32 

30.460 

366.000 

165.32 

30.460 

366.000 

165.32 

30.460 

370.000 

165.32 

30*460 

372.000 

165.32 

30.460 

374.000 

165.32 

30.460 

376.000 

165.32 

30.460 

376.000 

165.32 

30.460 

360.000 

165.32 

30.460 

362.000 

165.32 

30.460 

364.000 

165.32 

30.460 

386.000 

165.32 

30.460 

386.000 

185.32 

30.460 

390.000 

165.32 

30.460 

392.000 

185.32 

30.460 

394.000 

165.32 

30.460 

396.000 

165.32 

30.460 

396.000 

165.32 

30.460 

400.000 

165.32 

30.460 

402.000 

185.32 

30.480 

404.000 

165.32 

30.460 

406.000 

165.32 

30.460 

406.000 

165.32 

30.460 

410.000 

165.32 

30.480 

412.000 

165.32 

30.460 

414.000 

165.32 

30.46b 

416.000 

165.32 

30.460 

418.000 

165.32 

30.460 

420.000 

165.32 

30.460 

422.000 

165.32 

30.460 

424.000 

165.32 

30.460 

426.000 

165.32 

30.460 

426.000 

165.32 

30.460 

430.000 

165.32 

30.460 

432.000 

165.32 

30.460 

434.000 

185.32 

30.480 

436.000 

165.32 

30.460 

436.000 

165.32 

30.460 

440.000 

165.32 

30.480 

442.000 

165.32 

30.460 

444.000 

-1.3794  -3.0399  93.37 

-1.4*54  -3.1974  98.59 

-1.4671  -3.3459  98.81 

-1.5051  -3.4662  99.04 

-1.5401  -3.6190  99.26 

-1.5724  -3.7447  99.46 

-1.6026  -3.8640  99.70 

-1.6309  -3.9773  99.92 

-1.6578  -4.0*51  100.14 

-1.6835  -4.1676  100.36 

-1.7081  -4.2*56  100.5* 

-1.7319  -4.3793  100.80 

-1.75*1  -4.4666  101.02 

-1.7776  -4.5545  101.24 

-t.eoon  -4.6366  101.45 

-1.8220  -4.7155  101.67 

-1.8436  -4.7912  101.86 

-1.8654  -4.6640  102.10 

-1.6669  -4.9341  102.31 

-1.9084  -5.0017  102.53 

-1.9299  -5.0669  102.74 

-1.9514  -5.1296  102.95 

-1.9731  -5.1906  103.16 

-1.9948  -5.2494  103.37 

-2.0166  -5.3063  103.58 

-2.0367  -5.3614  103.60 

-2.0606  -5.4146  104.00 

-2.0632  -5.4666  104.21 

-2.1057  -5.5169  104.42 

-2.1264  -5.5656  104.63 

-2.1513  -5.6133  104.64 

-2.1744  -5.6594  105.04 

-2.1977  -5.7043  105.25 

-2.2212  -5.7481  105.46 

-2.2449  -5.7907  105.66 

-2.2686  -5.8320  105.67 

-2.2928  -5.6725  106.07 

-2.3171  -5.9120  106.28 

-2.3417  -5.9505  106.48 

-2.3664  -5.9861  106.68 

-2.3914  -6.0249  106.68 

-2.4166  -6.060e  107.09 

-2.4419  -6.0959  107.29 

-2.4675  -6.1302  107.49 

-2.4933  -6.1636  107.69 

-2.5192  -6.1967  107.69 

-2.5454  -6.2266  108.09 

-2.5717  -6.2603  108.29 

-2.5983  -6.2912  106.49 

-2.6250  -6.3214  108.69 

-2.6520  -6.3510  108.86 

-2.6791  -6.3801  109.08 

-2.7065  -6.4086  109.26 

-2.7340  -6.4365  109.47 

-2.7617  -6.4640  109.67 
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185.32 

30.460 

185.32 

30.460 

185.32 

30.460 

185.32 

30.460 

185.32 

30.460 

185.32 

30.460 

185.32 

30.460 

185.32 

30.460 

185.32 

30.460 

185.32 

30.460 

185.32 

30.460 

185.32 

30.460 

185.32 

30.460 

185.32 

30.460 

185.32 

30.480 

185.32 

30.460 

185.32 

30.460 

165.32 

30.460 

185.32 

30.460 

185.32 

30.460 

185.32 

30.460 

185.32 

30.460 

185.32 

30.460 

185.32 

30.460 

185.32 

30.460 

185.32 

30.460 

185.32 

30.460 

185.32 

30.460 

185.32 

30.460 

185.32 

30.460 

185.32 

30.460 

185.32 

30.460 

185.32 

30.460 

185.32 

30.460 

185.32 

30.460 

185.32 

30.460 

185.32 

30.460 

185.32 

30.480 

185.32 

30.460 

185,32 

30.460 

185.32 

30.460 

185.32 

30.460 

185.32 

30.460 

185.32 

30.460 

185.32 

30.460 

165.32 

30.460 

185.32 

30.460 

185.32 

30.460 

185.32 

30.460 

185.32 

30.460 

185.32 

30.460 

185.32 

30.460 

185.32 

30.460 

185.32 

30.460 

185.32 

30.460 

446.000 

-2.7896 

446.000 

-2.6176 

450.000 

-2.6459 

452.000 

-2.6743 

454.000 

-2.9030 

456.000 

-2.9316 

458.000 

-2.9607 

460.000 

-2.9899 

462.000 

-3.0197 

464.000 

-3.0468 

466.000 

-3.0764 

466.000 

-3.1083 

470.000 

-3.1364 

472.000 

-3.1666 

474.000 

-3.1990 

476.000 

-3.2295 

478.000 

-3.2603 

460.000 

-3.2912 

462.000 

-3.3222 

464.000 

-3.3535 

466.000 

-3.3849 

486.000 

-3.4165 

490.000 

-3.4462 

492.000 

-3.4601 

494.000 

-3.5122 

496.000 

-3.5445 

498.000 

-3.5769 

500.000 

-3.6094 

502.000 

-3.6422 

504.000 

-3.6750 

506.000 

-3.7081 

508.000 

-3.7413 

510.000 

-3.7747 

512.000 

-3.eoe2 

514.000 

-3.84J9 

516.000 

-3.6757 

516.000 

-3.9097 

520.000 

-3.9436 

522.000 

-3.9761 

524.000 

-4.0125 

526.000 

-4.0471 

528.000 

-4.0618 

530.000 

-4.1167 

532.000 

-4.1517 

534.000 

-4.1869 

536.000 

-4.2222 

536.000 

-4.2576 

540.000 

-4.2932 

542.000 

-4.3269 

544.000 

-4.3646 

546.000 

-4.4008 

546.000 

-4.4369 

550.000 

-4.4731 

552.000 

-4.5095 

554.000 

-4.5460 

-6.4909 

109.67 

-6.5173 

110.06 

-6.5433 

110.25 

-6.5668 

110.45 

-6.5936 

110.64 

-6.6164 

110.64 

-6.6426 

111.03 

-6.6664 

111.22 

-6.6696 

111.4! 

-6.7126 

111.6 1 

-6.7354 

111.80 

-6.7576 

111.99 

-6. 779« 

112.18 

-6.8011 

112.37 

-6.8223 

112.56 

-6.8432 

112-7*= 

-6.8636 

112.94 

-6.8*40 

113.12 

-6.9040 

113.31 

-6.9236 

113.50 

-6.9430 

113.69 

-6.9621 

113.67 

-6.9809 

114.06 

-6.9094 

114.25 

-7.0177 

114.43 

-7.0357 

114.62 

-7.0535 

114.80 

-7.0710 

114.99 

-7.0883 

115.17 

-7.1053 

115.36 

-7.1222 

115.54 

-7.1366 

115.72 

-7.1551 

115.90 

-7.1713 

116.09 

-7.1873 

116.27 

-7.2030 

116.45 

-7.2186 

116.63 

-7.2339 

116.81 

-7.2491 

116.99 

-7.2640 

117.17 

-7.2786 

117.35 

-7.2934 

117.53 

-7.307e 

117.71 

-7.3221 

117.69 

-7.3362 

113.07 

-7.3501 

118.25 

-7.3636 

113.43 

-7.3774 

118.60 

-7.3906 

118.76 

-7.4041 

118.96 

-7.4172 

119.14 

-7.4301 

119.31 

-7.4429 

119.49 

-7.4556 

119.66 

-7.4661 

119.64 

85.32 

30.480 

556.000 

“4.5826 

-7.4*05 

120.01 

85.32 

30.480 

558.000 

-4.6194 

-7.4927 

120.19 

85.32 

30.480 

560.000 

-4.6563 

-7.5049 

120.36 

85.32 

30.480 

562.000 

-4.6933 

-7.5168 

120.54 

85.32 

30.480 

564.000 

-4.7304 

-7.5287 

120.71 

85.32 

30.480 

566.000 

-4.7676 

-7.5404 

120.8* 

85.32 

30.480 

566.000 

-4.6050 

-7.5520 

121.06 

85.32 

30.480 

570.000 

-4.8424 

-7.5634 

121.23 

85.32 

30.480 

572.000 

-4.8800 

-7.5748 

121.40 

85.32 

30.480 

574.000 

-4.9177 

-7.5*60 

121.58 

85.32 

30.480 

576.000 

-4.9555 

-7.5971 

121.75 

85.32 

30.480 

578.000 

-4.9934 

-7.6081 

121.92 

85.32 

30.480 

580.000 

-5.0314 

-7.6189 

122.09 

85.32 

30.480 

562.000 

-5.0695 

-7.6297 

122.26 

85.32 

30.480 

564.000 

-5.1077 

-7.6403 

122.43 

85.32 

30.480 

566.000 

-5.1461 

-7.650e 

122.60 

85.32 

30.480 

566.000 

-5.1645 

-7.6613 

122.77 

85.32 

30.480 

500.000 

-5.2230 

-7.6716 

122.94 

85.32 

30.480 

592.000 

-5.2616 

-7.6*18 

123.11 

85.32 

30.480 

594.000 

-5.3003 

-7.6919 

123.28 

85.32 

30.480 

596.000 

-5.3391 

-7.7019 

123.45 

85.32 

30.480 

596.000 

-5.3780 

-7.7118 

123.62 

85.32 

30.480 

600.000 

-5.4169 

-7.7216 

123.79 

85.32 

30.480 

602.000 

-5.4560 

-7.7313 

123.96 

85.32 

30.480 

604.000 

-5.4951 

-7.7409 

124.13 

85.32 

30.480 

606.000 

-5.5343 

-7.7504 

124.29 

85.32 

30.480 

606.000 

-5.5736 

-7.7599 

124.46 

85.32 

30.480 

610.000 

-5.6130 

-7.7692 

124.63 

85.32 

30.480 

612.000 

-5.6525 

-7.7764 

124.79 

85.32 

30.480 

614.000 

-5.6920 

-7.7876 

124.96 

85.32 

30.480 

616.000 

-5.7316 

-7.7966 

125.13 

85.32 

30.480 

618.Q0Q 

-5.7713 

-7.6056 

125.29 

85.32 

30.480 

620.000 

-5.8110 

-7.8145 

125.46 

85.32 

30.480 

622.000 

-5.6509 

-7.8233 

125.62 

85.32 

30.480 

624.000 

-5.6907 

-7.6320 

125.79 

85.32 

30.480 

626.000 

-5.9307 

-7.6407 

125.95 

85.32 

30.480 

626.000 

-5.9707 

-7.8492 

126.12 

85.32 

30.480 

630.000 

-6.0107 

-7.8577 

126.28 

85.32 

30.480 

632.000 

-6.0509 

-7.6661 

126.45 

85.32 

30.480 

634.000 

-6.0911 

-7.8744 

126.61 

85.32 

30.480 

636.000 

-6.1313 

-7.8*26 

126.76 

85.32 

30.480 

636.000 

-6.1716 

-7.6908 

126.94 

85.32 

30.480 

640.000 

-6.2119 

-7.8989 

127.10 

85.32 

30.480 

642.000 

-6.2523 

-7.9069 

127.26 

85.32 

30.480 

644.000 

-6.2926 

-7.9146 

127.43 

85.32 

30.480 

646.000 

-6.3333 

-7.9227 

127.59 

85.32 

30.480 

646.000 

-6.3738 

-7.9305 

127.75 

85.32 

30,480 

650.000 

-6.4144 

-7.9362 

127.91 

85.32 

30.460 

652.000 

-6.4550 

-7.9459 

128.08 

85.32 

30.460 

654.000 

-6.4957 

-7.9535 

126.24 

85.32 

30.480 

656.000 

•6.5364 

-7.9610 

128.40 

85.32 

30.460 

656.000 

-6.5772 

-7.9664 

126.56 

85.32 

30.460 

660.000 

-6.6180 

-7.9756 

128.72 

85.32 

30.480 

662.000 

-6.6568 

-7.9831 

128.86 

85.32 

30.460 

664.000 

-6*6996 

-7.9904 

129.04 

5.32 

30.400 

066.000 

-6.7405 

-7.9976 

129.20 

>5.32 

30.400 

666.000 

-6.7014 

-8.0047 

129.36 

5.32 

30.400 

670.000 

-6.0224 

-8.0110 

129.5? 

>5.32 

30.400 

672.000 

-6.0634 

-0.0100 

129.60 

5.32 

30.400 

674.000 

-6.9044 

-8.0257 

129.84 

5.32 

30.400 

676.000 

-6.9454 

-8.0326 

130.00 

5.32 

30.400 

676.000 

-6.9664 

-8.0394 

130.15 

5.32 

30.400 

600.000 

-7.0275 

-8.0461 

130.3! 

5.32 

30.400 

602.000 

-7.0666 

-8.0520 

130.47 

5.32 

30.400 

604.000 

-7.1097 

-0.0595 

130.63 

5.32 

30.400 

606.000 

-7.1500 

-8.0661 

130.79 

5.32 

30.400 

608.000 

-7.1920 

-8.0726 

130.94 

5.32 

30.400 

600.000 

-7.2332 

-8.0791 

131.10 

5.32 

30.400 

602.000 

-7.2743 

-8.0855 

131.26 

5.32 

30.400 

604.000 

-7.3155 

-8.0910 

131.41 

5.32 

30.400 

606.000 

-7.3567 

-8.0901 

131.57 

5.32 

30.400 

608.000 

-7.3979 

-0.1044 

131.73 

5.32 

30.400 

700.000 

-7.4392 

-8.1106 

131.80 

5.32 

30.400 

702.000 

-7.4804 

-8.1167 

132.04 

5.32 

30.400 

704.000 

-7.5216 

-8.1220 

132.10 

5.32 

30.400 

706.000 

-7.5629 

-8.1209 

132.35 

5.32 

30.400 

706.000 

-7.6041 

-8.1349 

132.50 

5.32 

30.400 

710.000 

-7.6454 

-8.1400 

132.66 

5.32 

30.400 

712.000 

-7.6867 

-8.1467 

132.01 

5.32 

30.400 

714.000 

-7.7279 

-8.1525 

132.97 

5.32 

30.400 

716.000 

-7.7692 

-8.1583 

133.12 

5.32 

30.460 

716.000 

-7.8104 

-8.1641 

133.28 

5.32 

30.400 

720.000 

-7.8517 

-8.1690 

133.43 

5.32 

30.400 

722.000 

-7.8930 

-8.1754 

133.58 

5.32 

30.460 

724.000 

-7.9342 

-8.1810 

133.74 

5.32 

30.400 

726.000 

-7.9755 

-8.1666 

133.09 

5.32 

30.460 

726.000 

-8.0167 

-8.1921 

134.04 

5.32 

30.460 

730.000 

-8.0500 

-8.1975 

134.20 

>5.32 

30.460 

732.000 

-0.0992 

-8.2030 

134.35 

5.32 

30.460 

734.000 

-0.1404 

-8.2083 

134.50 

5.32 

30.460 

736.000 

-8.1016 

-8.2137 

134.65 

>5.32 

30.460 

736.000 

-0.2220 

-8.2190 

134.81 

5.32 

30*400 

740.000 

-8.2640 

-8.2242 

134.96 

>5.32 

30.460 

742.000 

-8.3052 

-8.2294 

135.11 

5.32 

30.460 

744.000 

-8.3464 

-8.2345 

135.26 

5.32 

30.460 

746.000 

-8.3876 

-8.2397 

135.41 

5.32 

30.480 

746.000 

-8.4207 

-8.2447 

135.56 

5.32 

30.400 

750.000 

-0.4690 

-8.2498 

135.71 

>5.32 

30.480 

752.000 

-8.5109 

-8.2540 

135.06 

5.32 

30.460 

754.000 

-0.5520 

-0.2597 

136.01 

>5.32 

30.400 

756.000 

-0.5931 

-8.2646 

136.16 

5.32 

30.460 

750.000 

-8.6342 

-8.2695 

136.3! 

>5.32 

30.400 

760.000 

-0.6752 

-8.2743 

136.46 

5.32 

30.480 

762.000 

-0.7163 

-8.2791 

136.61 

5.32 

30.460 

764.000 

-8.7573 

-8.2*30 

136.76 

>5.32 

30.460 

766.000 

-8.7902 

-8.2086 

136.91 

>5.32 

30.460 

768.000 

-8.0392 

-8.2932 

137.06 

5.32 

30.480 

770.000 

-8.0801 

-8.2979 

137.21 

5.32 

30.460 

772.000 

-0.9211 

-8.3025 

137.36 

5.32 

30.460 

774.000 

-0.9619 

-0.3070 

137.51 

196 


MTS**".»»1  V.  ' 

IV*  J  1  •" 

»  ►  •  •  •  •  . 

1*5.32 

30.4*0 

776.000 

-9.002* 

-8.31  16 

137.65 

1*5.3? 

30.4*0 

778.000 

-9.0437 

-*.3160 

137.80 

1*5.3? 

30.48C 

7*0.000 

-9.004*5 

-8.3205 

137.95 

1*5.3? 

30.4*0 

7*2.000 

-9.12*3 

-8.3249 

138.1 0 

1*5.3? 

30.4*0 

7*4.000 

-9.1660 

-*.3293 

133.24 

1*5.3? 

30.4*0 

7*6.000 

-9.206* 

-8.3336 

138.39 

185.3? 

30.4*0 

7*8.000 

-9.2475 

-8.3379 

138.54 

185.3? 

30.4*0 

700.000 

-9.28*2 

-*.342? 

133.69 

1*5.3? 

30.4*0 

792.000 

-9.320* 

-8.3465 

133.83 

1*5.3? 

30.4*0 

794.000 

-9.3695 

-8.3507 

138. 9P 

185.3? 

30.4*0 

796.000 

-9.4101 

-8.3548 

139.1? 

185.3? 

30.4*0 

798.000 

-9.4506 

-8.3590 

139.27 

1*5.32 

30.480 

*00.000 

-9.491? 

-8.3631 

139.42 

1*5.3? 

30.4*0 

*02.000 

-9.5317 

-8.3672 

139.56 

1*5.32 

30.4*0 

*04.000 

-9.572? 

-8.3712 

139.71 

1*5.3? 

30.4*0 

*06.000 

-9.6126 

-8.3752 

139.85 

1*5.32 

30.4*0 

*06.000 

-9.6530 

-8.3792 

1 40.00 

185.3? 

30.480 

*10.000 

-9.6934 

-8.3*31 

140.14 

1*5.3? 

30.480 

*12.000 

-9.733* 

-8.3*71 

140.29 

185.3? 

30.480 

*14.000 

-9.7741 

-8.3909 

140.43 

185.3? 

3O.4A0 

*16.000 

-9.8144 

-8.3948 

140.5* 

185.32 

30.480 

018.000 

-9.8547 

-8.3986 

140.72 

1*5.32 

30.480 

*20.000 

-9.8949 

-8.4024 

140.87 

1*5.3? 

30.480 

*22.000 

-9.9351 

-8.4061 

141.01 

1*5.32 

30.4 Au 

*24.000 

-9.9753 

-8.4099 

141.15 

1*5.3? 

30.480 

*26.000 

-10.0154 

-8.4136 

141.30 

1*5.32 

30.4*0 

*28.000 

-10.0555 

-3.4172 

141.44 

1*5.3? 

30.480 

030.000 

-10.0956 

-8.4209 

141.58 

1*5.32 

30.4*0 

*32.000 

-10.1356 

-8.4245 

141.73 

185.32 

30.480 

*34.000 

-10.1756 

-8.4281 

141.87 

1*5.32 

30.400 

*36.000 

-10*2156 

-8.4316 

142.01 

1*5.32 

30.480 

*38.000 

-10.2556 

-8.4351 

142.15 

1*5.32 

30.480 

*40.000 

-10*2955 

-8.4386 

142.30 

1*5.32 

30.480 

*42.000 

-10.3354 

-8.4421 

142.44 

1*5.32 

30.4*0 

*44.000 

-10*3752 

-8.4455 

142.5* 

1*5.32 

30.400 

"46.000 

-10.4151 

-3.4490 

142.7? 

1*5.3? 

30.480 

*48.000 

-10.4549 

-3.4523 

142.87 

1*5.32 

30.480 

"50.000 

-10.4946 

-8.4557 

143.01 

1*5.32 

30.480 

*52.000 

-10.5344 

-8.4590 

143.15 

1*5.32 

30.480 

*54.000 

-10.5741 

-8.4623 

143.29 

1*5.32 

30.480 

*56.000 

-10.613* 

-8.4656 

143.43 

1*5.3? 

30.400 

*58.000 

-10.6534 

-8. 4*e9 

143.57 

1*5.32 

30.480 

*60.000 

-10.6931 

-8.4721 

143.71 

1*5.32 

30.480 

*6?. 000 

-10.7327 

-8.4753 

143.85 

1*5.32 

30.480 

*64.000 

-10.7723 

-8.4784 

143.99 

1*5.3? 

30.4*0 

*66.000 

-10.811* 

-3.4*16 

144.13 

1*5.3? 

30.48G 

*68.000 

-10.8514 

-3.4*47 

144.27 

1*5.3? 

30.480 

*70.000 

-10.8909 

-*.4*78 

144.41 

1*5.3? 

30.480 

*72.000 

-10.9304 

-8.4909 

144.55 

1*5.3? 

30.480 

*74.000 

-10.9699 

-A. 4939 

144.69 

1*5.3? 

30.4*0 

*76.000 

-11.0094 

-8.4Q69 

144.83 

1*5.32 

30.480 

*78.000 

-11.048* 

-8.4099 

144.97 

1*5.32 

30.4*0 

*80.000 

-11.088? 

-8.5029 

145.11 

1*5.3? 

30.480 

**2.000 

-11.1276 

-8.5059 

145.25 

1*5.32 

30.4*0 

0*4.000 

-11.1670 

-8.5088 

145.39 

1*5.3? 

30.4*0 

**6.000 

-11.2064 

-*.5117 

145.53 

’• 

1*5.3? 

30.4*0 

**8.000 

-11  .?4*» 

-*.5145 

145.66 

1*5.3? 

30.4*0 

*90.000 

-11.2*5? 

-8.5174 

140. *0 

1*5.3? 

30.4*0 

*92.000 

-11.3245 

-8.5202 

145.94 

1*5.3? 

30.4*0 

*94.000 

-11.3639 

-fl.5230 

146.0* 

c.  » 

185.3? 

30.4*0 

*96.000 

-11.4032 

-fl.5256 

146.?? 

1*5.3? 

30.4*0 

*98.000 

-11.4426 

-8.5286 

146.36 

1*5.3? 

30.4*0 

900.000 

-11.4*19 

-8.5313 

146.49 

185.3? 

30.4*0 

902.000 

-11.5212 

-3.5340 

146.63 

1*5.32 

30.4*0 

904.000 

-1  1.5606 

-*.5367 

146.77 

1*5.3? 

30.480 

906.000 

-1  1.5999 

-8.5394 

146.90 

1*5.3? 

30.4*0 

906.000 

-11.6393 

-8.5420 

147.04 

1*5.32 

30.480 

910.000 

-11.67*6 

-8.5446 

147.1* 

185.3? 

30.4*0 

912.000 

-11.71*0 

-8.547? 

147.31 

185.32 

30.4*0 

914.000 

-11.7573 

-8.549e 

147.45 

1*5.3? 

30.4*0 

916.000 

-11.7967 

-8.55?4 

147.59 

1*5.3? 

30.480 

918.000 

-11.8361 

-8.5549 

147.72 

1*5.32 

30.4*0 

920.000 

-11.6755 

-8.5574 

147.86 

1*5.32 

30.4*0 

922.000 

-11.9150 

-8. 5595 

148.00 

1*5.32 

30.48G 

924.000 

-11.9544 

-8.5624 

148.13 

1*5.32 

30.490 

926.000 

-11.9939 

-*.564* 

140.27 

£ 

1*5.3? 

30.4*0 

928.000 

-12.0334 

-8.5673 

148.40 

1*5.32 

30.4*0 

930.000 

-12.0729 

-8.5697 

148.54 

v  m 

1*5.32 

30.480 

932.000 

-12.1125 

-8.5721 

140.67 

1*5.32 

30.4*0 

934.000 

-12.1521 

-8.5744 

14*. *1 

tm0 

1*5.32 

30.480 

936.000 

-12.1917 

-8.5766 

148.94 

t*5.32 

30.4*0 

938.000 

-12.2313 

-8.5751 

149.0* 

1*5.3? 

30.480 

940.000 

-12.2710 

-8.5*14 

149.21 

1*5.32 

30.480 

942.000 

-12.310* 

-3.5*37 

149.35 

1*5.32 

30.4*0 

944.000 

-12.3506 

-8.5*60 

149.4* 

1*5.32 

30.4*0 

946.000 

-12.390* 

-8.5*62 

149.62 

t*5.32 

30.4*0 

948.000 

-12.4303 

-8.5904 

149.75 

1*5.32 

30.4*0 

950.000 

-12.4703 

-8.5926 

149.** 

1*5.32 

30.4*0 

952.000 

-12.5103 

-8.594* 

150.02 

1*5.32 

30.4*0 

954.000 

-12.5503 

-8. 5070 

150.15 

*  -k 

1*5.32 

30.4*0 

956.000 

-12.5905 

-8.5992 

150.2* 

*■  « 

1*5.32 

30.480 

958.000 

-12.6307 

-8.6013 

130.4? 

1*5.32 

30.4*0 

960.000 

-12.6709 

-8.6034 

150.55 

1*5.32 

30.4*0 

962.000 

-12.7113 

-8.6055 

150.6* 

til 

1*5.3? 

30.4*0 

964.000 

-12.7517 

-8.6076 

150. *2 

t*5.3? 

30.4*0 

966.000 

-12.7922 

-8.6096 

150.9* 

" 

1*5.3? 

30.4*0 

968.000 

-12.632* 

-8.6117 

131.0* 

1*5.3? 

30.48G 

970.000 

-12.6735 

-8.6137 

151.21 

1*5.3? 

30.4*0 

972.000 

-12.9142 

-8.6157 

151.35 

\\ 

1*5.32 

30.4*0 

974.000 

-12.9551 

-8.6177 

151.4* 

v'* 

1*5.3? 

30.4*0 

976.000 

-12.9960 

-8.6196 

151.61 

1*5.32 

30.4*0 

978.000 

-13.0371 

-8.6216 

151.74 

1*5.3? 

30.480 

9*0.000 

-13.07*2 

-8.623* 

151.87 

1*5.32 

30.4*0 

9*2.000 

-13.1195 

-8.6254 

152.01 

1*5.3? 

30.4*0 

9*4.000 

-13.1609 

-8.6273 

152.14 

1*5.32 

30.4*0 

9*6.000 

-13.2024 

-8.6292 

152.27 

185.32 

30.480 

9*8.000 

-13.2440 

-8.6311 

152.40 

1*5.32 

30.4*0 

990.000 

-13.285* 

-8.6329 

152.53 

1*5.3? 

30.480 

992.000 

-13.3277 

-8.6347 

152.66 

1*5.32 

30.480 

994.000 

-13.3697 

-8.636* 

152.79 

of 
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185.32 
185.32 
185.3? 
185.32 
185.3? 
185.32 
185.3? 
185.3? 
185.32 
185.3? 
185.32 
185.32 
185.3? 
185.3? 
185.3? 
185.3? 
185.3? 
185.32 
185.3? 
185.32 
185.3? 
185.3? 
185.3? 
185.32 
185.32 
185.3? 
185.3? 
185.3? 
185.3? 
185.32 
185.32 
185.3? 
185.32 
185.32 
185.32 
185.3? 
185.3? 
185  •*> 
185.3? 
185.32 
185.32 
185.32 
185.32 
185.32 
185.32 
185.32 
185.32 
185.32 
185.32 
185.32 
185.3? 
185.32 
185.3? 
185.32 
185.3? 


30.480 
30.480 
30 ,48u 
30.480 
30.480 
30.480 
30.480 
30.480 
30.480 
30.480 
30.480 
30.480 
30.480 
30.480 
30.480 
30.480 
30.480 
30.460 
30.480 
30.480 
30.480 
30.480 
30.480 
30.480 
30.460 
30.480 
30.480 
30.480 
30.480 
30.480 
30.460 
30.480 
30.480 
30.480 
30.480 
30.480 
30.480 
30.480 
30.480 
30.480 
30.480 
30.480 
30.480 
30.480 
30.480 
30.480 
30.480 
30.480 
30.480 
30.480 
30.480 
30.480 
30.480 
30.460 
30.480 


098.000 
<308.000 
1000.000 
1 002.000 
1004.000 
1008.000 
1006.000 
1010.000 
1012.000 
1014.000 
1016.000 
1018.000 
1020.000 
1022.000 
1024.000 
1026.000 
1028.000 
1030.000 
1032.000 
1034.000 
1036.000 
1038.000 
1040.000 
1042.000 
1044.000 
1046.000 
1048.000 
1050.000 
1052.000 
1054.000 
1056.000 
1058.000 
1060.000 
1062.000 
1064.000 
1066.000 
1068.000 
1070.000 
1072.000 
1074.000 
1076.000 
1078.000 
1080.000 
1082.000 
1084.000 
1086.000 
1088.000 
1000.000 
1092.000 
1094.000 
1096.000 
1098.000 
1100.000 
1 102.00ft 
1104.000 


-13.4118 
-13.454  1 
-13.4065 
-13.530) 
-13.5819 
-13.6248 
-13.6678 
-13.71 1  1 
-13.7545 
-13.798) 
-13.84)8 
-13.8888 

-13.9300 

-13.9743 

-14.0189 

-14.0636 

-14.1086 

-14.1538 

-14.1992 

-14.2448 
-14.?907 
-14.3368 
-14.3832 
-14.4298 
-14.4767 
-14.5238 
-14.5712 
-14.6189 
-14.6668 
-14.7150 
-14.7636 
-14.8124 
-14.8615 
-14.9109 
-14.9606 
-15.0107 
-15.061 1 
-15.1118 
-15.1629 
-15.2143 
-15.2660 
-15.3181 
-15.3706 
-15.4235 
-15.4767 
-15.5303 
-15.5843 
-15.6367 
-15.6936 
-15.7488 
-15.8044 
-15.8605 
-15.9170 
-15.9740 
-16.0314 


-8.638^ 
-8.64P1 
-8.6419 
-3.6436 
-8.6453 
-8.6470 
-3.6487 
-3.6504 
-8.6521 
-3.6537 
-3.6553 
-8.6570 
-8.65C5 
-8.6601 
-3.6617 
-8.6632 
-8.6648 
-3.6663 
-8.6678 
-3.6693 
-8.6707 
-8.6722 
-3.6736 
-8.6751 
-8.6765 
-8.6779 
-8.6793 
-8.6806 
-8.6820 
“8.6833 
-8.6846 
-8.6859 
-0.6872 
-8.68e5 
-8.6898 
-8.6910 
-8.6923 
-8.6935 
-8.6947 
-8.6959 
-8.6971 
-8.6983 
-8.6994 
-8.7006 
-8.7017 
-3.7028 
-8. 7039 
-3.7050 
-8.7061 
-8.7071 
-8.7082 
-8.7092 
-8.7102 
-8.7112 
-8.7122 


152.9? 
153.05 
153.19 
153.3? 
153.45 
153.58 
153.71 
153.84 
153.97 
154.09 
154.22 
1 5  4 . 3  c 
154.48 
154.61 
154.74 
154.87 
155.00 
155.13 
155. ?6 
155.38 
155.51 
155.64 
155.77 

155.90 
156.0? 
156.15 

156.28 

156.41 
156.53 

156.66 

156.79 

156.91 
157.04 

157.17 

157.29 

157.42 

157.55 

157.67 

157.80 

157.92 
158.05 

158.18 

158.30 

158.43 

158.55 

158.68 

158.80 

158.93 
159.05 

159.18 

159.30 

159.43 

159.55 
159.67 

159.80 


V.V  V  \*  V 

."V  "V 

185.32 

30.480 

1106.000 

-16.0893 

-8.7132 

159.92 

185.32 

30.480 

1108.000 

-16.1476 

-3.7142 

160.05 

1 85.3? 

30.480 

1110.000 

-16.2064 

-3.71=1 

160.17 

185.32 

30.480 

1112.000 

-16.?65« 

-8.7161 

160.2° 

185.3? 

30.480 

1 114.000 

-16.3255 

-3.7170 

160.42 

185.32 

30.480 

1 1 16.000 

-16.3858 

-3.7179 

160.54 

185.3? 

30.480 

1 118.000 

-16.4486 

-3.7189 

160.67 

185.32 

30.480 

1120.000 

-16.50e0 

-3.7197 

160.79 

185.3? 

30.480 

1122.000 

-16.5698 

-8.7206 

160.91 

185.3? 

30.480 

1124.000 

-16.6322 

-8.721= 

161.03 

' 

185.32 

30.480 

1126.000 

-16.695 1 

-3.7224 

161.16 

185.32 

30.480 

1128.000 

-16.7586 

-3.723? 

161.23 

m 

185.32 

30.480 

1130.000 

-16.8227 

-3.7240 

161.40 

185.32 

30.480 

1132.000 

-16.8873 

-3.7249 

161.53 

185.3? 

30.480 

1134.000 

-16.9525 

-6.7257 

161.65 

185.32 

30.480 

1 1 36.000 

-17.0183 

-3.7265 

161.77 

185.32 

30.480 

1 138.000 

-17.0647 

-8.7273 

161.89 

185.32 

30.480 

1140.000 

-17.1517 

-3.7280 

162.0 2 

185.3? 

30.480 

1142.000 

-17.2193 

-8.7?e8 

162.  1  4 

185.32 

30.480 

1144.000 

-17.2876 

-8.7296 

162.26 

185.32 

30.480 

1146.000 

-17.3565 

-3.7303 

162.33 

185.3? 

30.480 

1148.000 

-17.426 1 

-3.7310 

162.50 

185.32 

30.480 

1150.000 

-17.4963 

-3.7317 

162.6? 

185.3? 

30.480 

1 152.000 

-17.5672 

-3.7324 

162.7= 

•t  . 

185.3? 

30.480 

1 154.000 

-17.6388 

-3.7331 

162.87 

** 

185.3? 

30.480 

1 156.000 

-17.7112 

-8.733e 

162.99 

185.3? 

30.480 

1 158.000 

-17.7842 

-3.734= 

163.1  1 

185.32 

30.480 

1 160.000 

-17.8579 

-3.73=2 

163.23 

185.32 

30.480 

1162.000 

-17.9325 

-8.7358 

163.35 

185.32 

30.480 

1164.000 

-18.0077 

-3.7364 

163.47 

185.32 

30.480 

1166.000 

-18.0637 

-3.7371 

163.59 

1  185.32 

30.480 

1168.000 

-18.1605 

-8.7377 

163.72 

1  185.32 

30.480 

1170.000 

-18.2382 

-3.7383 

163.84 

T* 

185.32 

30.48G 

1172.000 

-18.3166 

-8.7389 

163.96 

185.3? 

30.480 

1174.000 

-18.39=8 

-3.739= 

164.03 

• 

185.32 

3G.48G 

1  176.000 

-18.4759 

-8.7400 

164.20 

,*  • 

185.32 

30.480 

1178.000 

-18.5569 

-3.7406 

164.32 

185.32 

30.480 

1180.000 

-18.6387 

-3.74  1  1 

164.44 

185.32 

30.480 

1 182.000 

-18.72M 

-8.7417 

164.56 

185.32 

30.480 

1184.000 

-18.6050 

-8.7422 

164.68 

‘ 

185.32 

30.480 

1 186.000 

-18.8896 

-8.7427 

164.80 

185.3? 

30.480 

1188.000 

-18.9751 

-8.7432 

164.92 

185.3? 

30.480 

1190.000 

-19.0615 

-8.7437 

165.04 

185.32 

30.480 
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11.  REMARKS 


XWVG  has  been  run  for  cases  involving  over  50  different  trilinear  modi¬ 
fied  refractivity  profiles  and  for  frequencies  between  50  MHz  and  94  GHz. 

In  some  of  these  cases  modes  with  attenuation  rates  up  to  3  dB/km  were  found. 
In  every  case  XWVG  ran  without  problems.  XWVG  works  reliably  in  the  diffrac¬ 
tion  region  and  well  into  the  line-of-sight  region.  The  results  of  XWVG  were 
compared  to  results  from  other  waveguide  programs  in  the  diffraction  region 
and  to  results  from  a  ray  trace  program  in  the  line-of-sight  region.  The 
comparison  was  very  good  in  the  diffraction  region  and  well  into  the  line- 
of-sight  region. 

For  elevated  layers  XWVG's  strength  is  in  the  frequency  range  of  50  to 
several  hundred  MHz.  Here  the  diffraction  type  modes  have  attenuation  rates 
as  low  as  a  few  tenths  of  a  dB  per  kilometer  and  could  therefore  affect  the 
signal  level  value.  XWVG  easily  finds  these  diffraction  type  modes  while 
"G  trace"  type  waveguide  programs  [6]  may  miss  them.  Also,  for  these 
frequencies  the  number  of  modes  with  attenuation  rates  below,  for  example, 

1  dB/km  is  small.  The  region  of  the  complex  q^-plane  that  has  to  be 
searched  for  these  modes  is  also  small.  Therefore,  the  computer  time 
required  by  XWVG  is  not  excessively  long.  At  higher  frequencies  the 
number  of  modes  below  a  given  attenuation  rate  increases.  This  increase 
in  the  number  of  modes  comes  with  an  increase  in  the  region  of  the  com¬ 
plex  q^-plane  that  has  to  be  searched  for  modes.  Therefore,  the  computer 
run  time  of  XWVG  increases,  sometimes  dramatically.  At  these  higher 
frequencies  the  attenuation  rate  of  the  diffraction  type  modes  increases, 
so  the  fact  that  G- trace  type  waveguide  programs  may  fail  to  find  them  is 
no  longer  significant.  In  a  sense  XWVG  is  complementary  to  the  G- trace 
type  program  of  Pappert  and  Goodhart  [6]. 

A  major  improvement  to  XWVG  that  is  contemplated  is  the  capability  to 
handle  modified  refractivity  profiles  that  have  N  linear  segments,  where  N  is 
a  moderate  sized  number,  e.g.,  20.  In  order  to  do  this,  use  will  be  made  of 
an  improved  method  for  evaluating  the  derivative  of  a  determinant  [37,  38]. 
This  extension  of  the  capabilities  of  XWVG  will  be  especially  useful  for 
raulti8egment  evaporation  duct  models.  It  will  also  allow  modeling  of 
evaporation  ducts  in  combination  with  elevated  ducts.  Since  XWVG  uses  the 


Shellman-Morfitt  root-finding  routine,  all  the  modes  with  an  attenuation  rate 
less  than  some  specified  value  are  guaranteed  to  be  found.  This  guarantee  is 
something  that  multilayer  extensions  of  the  G-trace  type  program  cannot  give. 
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